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COMPILERS GUIDE FOR VZ USERS 
Bob Kitch 
Brisbane March 2021 


VZ-Verbatim is a research resource for the DSE VZ00 and VZ300 micro-computers marketed in 
Australasia during the 1980's - in the pre-PC and post-TRS80/System 80 eras. Many young (and old) 
computer users cut their digital teeth on these Z80-based machines. A number of VZ User Groups 
also sprang up, held meetings and produced Newsletters. There was a huge thirst for knowledge, 
enthusiasm, learning, coding and general learning about “things digital” centred upon the VZ. 


All of the information in this compilation is long out-of-print and quite difficult to obtain. It may not 
be sold or recompiled into any other format without my express permission. Note the highly 
practical electronic and computing information that was offered in technical magazines of this era. 


An information companion to VZ-Verbatim is the “Bob Kitch’s VZ Scrap Book” that contains thirty 
technical contributions | made to magazines and various User Groups Newsletters during 1985 to 
1990. Approximately 25 BASIC and ASSEMBLER ASCII listings are provided in that Directory. These 
articles were about learning and encouraging VZ Users to develop digital skills and interests. 


VZ-Verbatim was a last-Century response to an information demand to encourage a new generation of 
digital enthusiasts in the pre- WWW era. It was compiled during 1985 to 1990 but with articles going back 
to 1981. The original format was as loose A4 Master Sheets wherein specific photocopies could be returned 
by snail mail to interested and puzzled VZ Users. As interest in 8-bit computers waned in early 1990's, a 
lone copy of VZ-Verbatim (as two volumes) was made (pictured on cover). It is in the last month these 
volumes have come to hand, been scanned at 400dpi and converted to pdf's. 


As a late incarnation of the 8-bit microcomputer era, the Video Technology/DSE VZ200/300 was highly 
influential in homes throughout Australasia and under other names elsewhere in the World. A fair level of 
interest remains amongst enthusiasts in Vintage Computer Groups and Emulators Users. A number of now 
middle-aged men, were young enthusiasts that learned about computing in the 1980's and still use the VZ 
for largely nostalgic reasons. | note that a remarkable number of these young enthusiasts are now 
employed in the IT industry. These enthusiasts are instrumental in maintaining Z80 emulators and 
hardware, have added more convenient I/O peripherals than the contemporary cassette and floppies and 
have added memory capabilities beyond 64K. Tape and disk software has been converted to more durable 
digital formats. 


Preserving and providing ready access the "Lump" of VZ technical information, software images, operating 
hardware and emulators is regarded as a priority. This compilation is part of that "VZ Lump". 


Bob Kitch 

Brisbane, Queensland, Australia 
E: rbkitch Q hotmail.com 

M: *61 (0) 400 083 465 
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Structure of Volumes 
Following on the blue pages is a complete listing of all articles contained within Volumes 1 and 2. 
This is shown in the original list format that was frequently updated and circulated to VZ Users. 


Pages 12 to 14 of that list is included for completeness. These pages are a list of books on BASIC, Assembler 
and the Z80. Most of these are available on-line as e-books in pdf format. 


The yellow pages detail the various sections within the volumes. 


Volume 1 contains software articles categorised as 
Utilities 
Games 
Business 


Volume 2 contains 
Hardware Peripherals 
Software Reviews 
Software Advertisements 
Hardware Reviews 
General Programming 
DSE Technical Bulletins. 


These volumes were derived from 400dpi scans of second generation photocopies of the original bound 
articles and were delivered in Adobe Acrobat pdf format. 


Using Adobe Acrobat Pro 2017 each page was edited and enhanced involving 
° character recognition to provide editable text and images 


° text and images de-skewed 
° font replaced with document fonts for sharpening 


-11- 


VZ-VERBATIM 


VOLUME 1 


BY: R.B. KITCH 


JULY 1990 
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Раде 1 


LISTING ОҒ У2200/300 МАСА2ІМЕ ARTICLES 


AS АТ 31 JULY 1990 


Since its introduction in early 1983, over three hundred articles 
on the VZ-200 and 300 have appeared in the magazines. Some articles 
review the hardware and others describe peripherals. Some excellent 
games have been published and a very useful set of utility routines has 
emerged. 


This bibliography for the VZ computer is a must for the serious 
MAUS 


Compiled by:- 


ВОВЕ КІШӘНЯ 7 Ешсешіа ес Renmore, ола, 40695 Phone mS ds 
PLEASE ADVISE OF ANY ADDITIONAL ARTICLES ..or.. CHANGES, ALTERATIONS OR 
BUGS IN LISTINGS to assist other Users. 


The numbers in brackets are the number of sheets in each article. 
A dash (-) indicates that the article is on the same sheet as the item 
above. 


If Users wish to obtain copies of the articles referred to in this 
bibliography, they may - 


i) contact ше for copies ©. .or. 
ii) buy back copies of the magazine from che distributori 2 26065 с 
i111) Dorrow from your local-library.: 


I сап supply copies FOR YOUR OWN USE ONLY ас 20с. рег sheet. 
Kindly add postage to your request as follows: 


No. of Sheets Qld. Interstate (Surface) 
1- 8 50.41 50.41 
4 - 18 50.95 Si, LC 
19 - 90 $1.90 (32). 50) 


> 90 expensive! 


oct. 
Jan. 
Nov. 
Nov. 
Feb. 
Маг. 
Apr. 


May 


Jun. 
Jul. 
Mar. 
Apr. 
Т, 
Juls 
Aug. 
Aug. 
Aug. 
Арк 
Aug. 
Aug. 


Моу. 
Nov. 
Sep. 
Sep. 
Oc 
Nov. 
Nov. 


Nov. 
Nov. 
Dec. 
Feb. 
Feb. 


Feb. 
Mar. 
Apr. 
Apr. 


Apr. 
Apr. 
Ju: 


May 
May 
May 


Aug. 
Aug. 
Sep. 
Оее. 
Ос: 
Nov. 
Nov. 


UTILITIES 
83 APC 
84 APC 
83 APC 
83 APC 
84 APC 
84 APC 
84 APC 
84 APC 
84 APC 
84 APC 
84 ETI 
85 ETI 
84 BB 
84 M80 
84 M80 
84 M80 
84 M80 
85 APC 
85 АРС 
84 APC 
84 APC 
84 APC 
84 “СІ 
84 BB 
84 ЕТІ 
84 АРС 
84 АРС 
84 PCG 
84 PCG 
84 BB 
85° ABC 
85 APC 
85 АВА 
85. ат 
85 PCG 
85 АРС 
85 АРС 
85 АРС 
85 АРС. 
85 АРС 
85 ЕТІ 
85 АВС 
85 АРС 
85 АРС 
85 АРС 
85 АРС 
85 АРС 
85 АРС 
85 ЕТІ 


BASIC program conversion. (Surya) 


Beginners tips. (White) 
Program conversion Pt. 2 (Surya) 
BASIC converter chart. (Surya) 


Program conversion Pt. 2 (Surya) 
Program conversion - Apple II (Surya) 
Program conversion - TRS 80/System 80 


(Surya) 
Program conversion - Atari (Surya) 
Program conversion - Sinclair (Surya) 


Program conversion - BBC (Surya) 

More functions for the VZ-200. (Olney) 
Notes and errata for Olney. 

Some more routines. (Middlemiss) 

VZED - three new functions. 

WH AOO) output latei. 

Memory peek VZED. (Carson) 

Microsoft ROM BASIC Level I bug. 
VZ-200 bug. (Tritscher) 

М buge Eit scher) 

VZ-200 moving message and trace. 
(Batterson) 

Trace function. (Breffit) 

VZ-200 correction. (Kelly) 

VZ200 Input. (Woolf) 

Poking extra functions. (Clark & Hill) 
Extending VZ-200 BASIC. (Olney) 


TRON/TROFF function for VZ-200. (Thompson) 


MON-200 machine code monitor. 
(Stamboulidas) 

printer (Quinn) 

VZ-200 reverse video. 

Enlarged characters. (Velde) 

BASIC understanding. (Hobson) 

WA= 200: i1ñto püberty = Oley’ в 

| extended BASIC. 
Calculating grey line. (Baker) 
Renumber. (Marsden) 

Find. (Stamboulidas) 

Use of RND in dice and card games. 
(Holland) 

VZ variable definition. (Stamboulidas) 
Variable GO TO on VZ. (Olsen) 
Correction to VZ variable GO TO. 
Lysco support for VZ-200. (Young) 
VZ-200 hardware interrupt. (Olney) 
Background VZ. (Williams) 

VZ-200 instant colour. (Willows) 
Reversed REM. (Quinn) 

Real-time clock. (Griffin) 

APC benchmark BASIC programs. 

VZ deletions. (Quinn) 

VZ EDITOR/ASSEMBLER tips. (Lam) 
Olney’s Level II BASIC for VZ200/300. 
(Rowe) 
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127 
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103-5 
54-55 
209 
86-89 


29-8 
89=92 
ПЕШО 912 
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VZ user graphics. 

Machine language calls. 

APC BASIC converter chart 1986. 

VZ-200 cassette inlays. (Dutfield) 

VZ and photography. (Kohen) 

VZ pause. 

VZ software mods. (CHIP-8 Editor) 
(r £ £ ir) 

УШ GHT mterpreter. (Griffin) 
Screen handling ол VZ. Барс т. (Көкесі) 
Screen handling ons VZ. Part тт. (Kitch) 
Reference list of VZ articles. (Kitch) 
Labeller. (Gallagher) 

Amateur radio logger. (Johnson) 
Speaker enclosure calculator. (Allison) 
Memory mapping оп У2. (Kitch) 

Feedline calculations. (Buhre) 

Op amp noise. (Allison) 

Beam Headings. (Baker) 

VZ EPISOn printer pateh. pay or) 

WA Sp Sem рл е ра син а. 

VZ expanded EPROM. (Meager) 

Restore file. (Banks & Saunders) 
B-file copier. (Buhre) 

String file name. (Hand) 

Disk directory dumper. (Tunny) 
CTRL-Break disabler. (Tunny) 

VZBUG. (Batger) 

Clocks (Оу) 

DOS Hello (Tunny) 

Visisort (Sheppard) 

Restore (Rowe) 

Hex/dec conversion (Maunder) 

Beam headings (Baker) 
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САМЕ5 
Nov/Dec83 
Dec. 83 
Feb. 84 
Jan. 84 
Apr. 84 
Juk 84 
ma 84 
JI 84 
Aug. 84 
Aug: 84 
(cR 84 
Nov 84 
Jan 85 

- 85 
Mar 86 
= 85 
Jan. 85 
Jan. 85 
Jan. 85 
Feb. 85 
Mar. 85 
Mar. 85 
Apr. 85 
Apr. 85 
May 85 
May/Jun85 
Jun 85 
Jan. 86 
Tulk (5) 5) 
Aug. ӘЛЕ 
@= с 85 
oct: 85 
Mar. 86 
May 86 
УДЯЛ - 86 
- 88 
- 88 
- 88 
- 88 
- 88 
- 88 
- 88 
- 88 
- 88 
- 88 
- 88 
Apr 88 
Jul 88 
Aug 88 
Nov 88 
May 89 


Projectile Plotting (Grosjean) 
Missile Command. (Whitwell) 

Caddy and Reaction Test. (Hartnell) 
Graphic Sine Waves for VZ-200. 
(Nickasen) 

Moon Lander. (Alley) 

Bilockomiters (sse) 

Battleships. (Carson) 

Junior Maths. (Carson) 

Contest Log VZED. (Carson) 

Dog Race VZED. (Carson) 

High Resolution Graphics Plotting. 
(Thompson) 

Tips for ‘Ladder Challenge’, “Panik” 
and ‘Asteroids’. 

POKE's to ‘Ghost Hunter’. 

Golf Simulation. (McCleary) 

Golf Simulation. (McCleary) 
Кла s Cross. (Tucas) 

Sketcher. (Leon) 

Punch. (Rowe) 

Space Station Defender. (Shultz) 
Lost. (Potter) 

Decoy. (Rowe) 

Mouse Maze. (Crandall) 


Painter. (Daniel) 
Roadrace. (Thompson) 
Number Sequence. (Thompson) 


Sketchpad. (Thompson) 

Morse Tutor program. (Heath) 
Morse Tutor - again. (Heath) 
Electric Tunnel. (Daniel) 
Number Slide. (Daniel) 

Cube. (McMullan) 

Yahtzee. (Thompson) 

VZ Frog. (Alley) 


Balloon Safari, The Drop and Flatten. 


(Sheppard) 

Simon. EPIO c) 

Drawing Program. (Winter) 
Tea-pot Song. (Winter) 

Ping Tennis. (Duncan) 
Concentration. (Vella) 

Super Snake Trapper. (Duncan) 
Worm. (Thompson) 

Dogfight. (Thompson) 

Bezerk. (Banks & Saunders) 
Arggggh! (Banks & Saunders) 
Encode/Decode. (Banks & Saunders) 
Catch. (Banks & Saunders) 
U-foe. (Alderton) 
Disintegrator. (Stibbard) 
Star Fighter. (Roberts) 
Drawing Board. (Maunder) 
Camel (Maunder) 
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Aug. 
(Ok ies 
OGE. 
Oeics 
Dec. 


May 


Jul., 
Feb. 


BUSINESS 
84 APC 
84 APC 
65 -APC 
84 APC 
84 APC 
до. АРС 
65 = ABC 
88 HTT 


ІЛ е? 
214 
DIPL 
126-50 
214 
19223 
164-6 
72 


Раде 5 


Database VZ-200. (Barker) 

WP for VZ-200. (McQuillan) 

Comment on Barker’s and Quinn’s DB. (Lukes) 
Minicalc Spreadsheet. (Stamboulidas) 
Corregtión to Minicalc. 

Micro Type(WP). (Browell) 

Database. (Quinn) 

VZ Wordprocessor. (Tunny) 
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Feb. 
Aug. 
Aug. 
Oct. 
Dec. 
Oct. 
Nov. 
Nov. 
Dec. 
Aug. 
Jun. 


бер. 
Jan. 
Feb. 


Mar. 
Jal 


oct: 
Jan. 
Feb. 


May 


Jan. 
Aug. 


May 


(OX c 
Jun. 
Jun. 
INOUE 
Apr. 
ОШОО ү 
JR 


May 


Ape. 


May 


Jun. 


wade 


PERIPHERALS 
84 EA 
84 EA 
Sd PEG 
84 АБС 
84 АРС 
85 MS 
84 BI 
84 ETI 
84 ETI 
25 Еи 
86 ЕА 
85 АК 
86 AR 
ӨР JE DI 
86 ЕТІ 
Se ах 
86 ЕТІ 
87 EA 
87 AR 
87 EA 
88 EA 
88 EA 
89 EA 
88 EA 
87 EA 
87 AEM 
88 AR 
88 AEM 
88 AEM 
88 AEM 
816 “ЕНШІ 
89 TETT 
is} Epi 
ӨӨ ЕТТ 
Gel ТӘЛІМІ 


Раде 6 


Real-world interface. 

Improved graphics оп У2-200. (Dimond) 

W/O) carda Tor VZ= 200. (ad) 

Serial help request. (Pope) 

Add-ons for У2-200. (Bleckendorf) 

VZ200/300 Modem. (ad) 

RTTY with VZ200. (Keatinge) 

A ‘Glass-Teletype’ using the VZ-200 Pt I 
" " " " Pt T JE 

VZ-200 terminal. 

Мс еза terminal. ad SEMANA) 

Assembler listing of 65-232 ROM software 

Another RTTY. (Butler) ' 

Morse on RTTY. (Butler) 

Modifying VZ-200 16K memory expansion. 

(Olney) 

Talking У2-200. (Bennets) 

Super II VZ-200 hardware modifications. 

(Sorrell) 

Баа осире 11, 

EPROM programmer modification. (Buhre) 

Morse Interface. (Forster) 

16K Memory Expansion У2300. (Kosovich) 

VZ-300 expansion problem. 

VZ-300 expansion. 

RAM Expansion - Discussion (Sorrell) 

Circuit idea: 

Errata Memory Expansion. 

VZ software. (Thompson) 

Memory expansion for V2200/300 

Ultra-graphics adaptor. (Sorrell) 

Correction. 

Correction: 

VZ amp. (Merrifield) 

Better VZ amp. (Hobson) 

72300 EPROM programmer. (Nacinovich) 

BASIC listing of software 

VZ300 data logger. (Sutton) 
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Mar. 
Aug. 


Oet. 


Nov. 
Jan. 
Feb. 
Mar. 
PROBS 
Apr. 
@e E 


Nov. 


Nov. 


COMMERCIAL 
84 APC 
84 PCG 
84 PCG 
84 PCG 
65... PCG 
SS) PCG 
95). PCE 
85> -BCG 
ёз ETI 
85 PCG 
85 PCG 
95 CLE 


SOFTWARE REVIEWS 


BSO, 


46-47 


90 99 


© @=®)@ 
65 

76 

Me wu 
94- 99 
WOS 
689 
700)= 1 


Spl 


Review of DSE ‘Matchbox’, 'Biorhythms', 
‘Circus’ and ‘Poker’. (Davies) 

Review of DSE ‘Panik’ and ‘Ladder 
Challenge’. 

Review of DSE ‘Knights and Dragons’, 
‘Ghost Hunter’, ‘Othello’, and 
‘Invaders’. 


Review Of busco “Сар Scout!’ апа 

DSE ‘Dracula's Castle’. 

Review ОТ DSE ‘Air Traffic Controller" 
and ‘Tennis’. 

Review of DSE ‘Defence Penetrator’ and 
star Blaster’. 

Review of DSE ‘Planet Patrol’ and 
‘Learjet’. 
Review of DSE ‘Asteroids’, Super Snake’ 
and ‘Lunar Lander’. 

Logbook and Morse on У2-200. 

Review of DSE ‘Duel’. 

Review of DSE ‘Attack of the Killer 
Tomatoes’. 

Review of educational software. 


Page 7 


SOFTWARE ADVERTISEMENTS 


А 15 page compilation of ads. 
services, User groups etc. 


for a variety of software, 
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HARDWARE REVIEWS 


Apr. 83 
Apt. 83 
Apr. 83 
May 83 
Jun. 83 
ам. 83 
ЧЛ ДЇ 83 
Aug. 84 
ИД 83 
JAE 83 
ӨМІ 83 
бер. 83 
бер. 83 
Aug. 83 
Sep. 83 
get: 83 
@ e= 83 
ОЮ; 83 
Dec. 83 
Моу. 83 
Моу. 83 
Nov/Dec83 
Feb. 84 
Spring 84 
Jun. 84 
Aug. 84 
Oet. 84 
Nov. 84 
Nov. 84 
Dec. 84 
Mar. 85 
ӘЛІШЕР 5/5 
Aug. 95 
Dec/Jan86 
Aug. 86 
Nov. 86 
Dec. 87 
Dec. бї] 


Texet TX-8000. (Bennett) 

МА 200 (Нак нел) 

Review of VZ-200. 

Video Technology У2-200 РС. (АҺ1) 

New low-cost computer - У2-200. 

Dick Smith colour computer. 

DSE VZ-200. 

WAS 20/0) - 

DSE's personal colour computer. 
(Harrison) 

The- Vz=200:; colour, graphics апа sound. 
(Vernon) 

Timing the Laser’s phazer. (Stokes) 
Laser. 

Dick Smith VZ200: good value. 
(Fullerton) 

сааш апа Carry Computers (Вет) 
Review of VZ-200 and РР40. 

VZ 200) c 

Texet TX8000. 

The Laser 200. 

Laser 200. 

A look at the Laser. (Green) 

Шие pa Se г атои “әле” аат кк 
=. (AMO 

Laser PP40 Printer/Plotter. 

Laser 200. (Green) 

Buying your first computer. (Vernon) 
An important role for small computers. 
(Williams) 

Ноле мы сво supertest: Бе 3 (Bonington) 
Home micro supertest. Pt. 4 (Bollington) 
VZ-200 as a WP (DSE E&F tape WP). 
(Williams) 

Review of video games consoles. 

Back to the VZ-200. (Williams) 

Dick Smith's new VZ-300. (Rowe) 

WP on the new VZ-300. (Williams) 

How to buy a micro - VZ-300 compared. 
Computers fon the Rest ов 5. (Robests ) 
Letter. (Kennedy) 

МВФ (Ta ы шен) 

VZ-300 
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GENERAL PROGRAMMING 


Apr. 81 
Jun. 81 
ОДА; 81 
Feb. 82 
Mar. 82 
Apr. 82 
May 82 
Jun. 82 
Jul - 82 
Sep. 82 
Nov. 82 
Dec. 82 
Jan/Feb83 
Mar. 83 
Aug. 83 
oct? 83 
Nov. 83 
Feb. 84 
Apr. 84 
Nov. 82 
Сап. 83 
Mar. 84 
Арт. 84 
Мау 84 
Onn: 84 
ww, 84 
Aug. 84 
Sep. 84 
Jan. 85 
Feb. 85 
Mar. 85 
INDIE с 85 
(ӘСЕ. 85 
JAn. 85 
Jun. 85 
Oet: 85 
Mar. 86 


70) 
а= 
10) ais 
17218 
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Extra 280 opcodes. (9) 

Моге uncovering 780. (Dennis) (1) 

780 uncovered. (Garland) (=) 

280 CPU reference card (2) 

Understanding Assembler (Bell) Part I (3) 

(8080) Pare IE r (4) 

" Ç " Part III @) 

n y 5 Part ту (3) 

" " d Part V (е 

B Ü x Pare VI (9 

, : Part VII (3) 

" a Part VITI (2: 

9 П h Part ІХ (4) 

ii i i Part Х (4) 

Н Ш s Pause ex (2) 

ii " d Part XII (6) 

" ш s Part-XTII (27 

и | 2 Part xiv (8) 

|! Ч Н Part ХУ (27 

у У Ü Ва Ей ИТ (925) 

PE Micro-file #1 - 8080 & 8085 (Coles) (659) 

PE Micro-file #3 - 780. (Coles) (5) 

Teach yourself assembler Pt. 1 (Overaa) (669) 

(3050, 780 6902) Pt. 2 (Overaa) (#5) 

Ë " Pt. 3 (Overaa) (5) 

u Ш Pt. 4 (Overaa) (5) 

у i Pt. 5 (Overaa) (25?) 

Ш " Pt. 6 (Overaa) (5) 

" y Pt. 7 (Overaa) (4) 

Sort at input. - (Ithell) (СШ) 
The basic art - algorithms, structures. 

(Liardet) (4) 

Pick a number - arithmetic. (Liardet) (5) 

ТЕ takes all sorts - sorting. (Liardet) (5) 


The Art of Programming - Progress. 
(Hjaltson) 

Comment on binary search. (Lamich) 
Comment on distribution sort. (Riordon) 
Sorting out the sorts. (Jankowski) 

280 
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AEM Australian Electronics Monthly ЕТІ Electronics Today 
AHC Australian Home Computers International 
APC Australian Personal Computer M80 Micro-80 
APH Australian Photography 

AR Amateur Radio 
ARA Amateur Radio Action 

BB Bits and Bytes (NZ) 

i ЕРА еа к TANZI 


BYC Bumper Book of Programs by YC MC Micro Choice (UK) 

CBA (СБ! Желе On 

СС Creative Computing (US) PCG Personal Computer Games 
CFG Computer Fun and Games PCN Personal Computer News (UK) 
CI Computer Input (NZ) PES Practical Electronics (UR) 
CLC Classroom Computing ЗАМ Sync US 

Cir Gre mou cing Today (UR) WM Which Micro (UK) 
CHO Choice УС Your Computer 

EA Electronics Australia YCU T YoUr КС Єшрї ег (UK) 


FURTHER LITERATURE RELATING TO THE У2200/300 COMPUTER 


As an extension to my list of magazine articles, I have produced the 
fPolmMeowing ЕБЕ ОЕ books (СІ пате сорте or аи он ене publications). hic 
books relate to the VZ computer specifically, Microsoft BASIC Level II or 
the Z-80 microprocessors, as used in the VZ200/300. Additionally, I hold 
a Let ota ena ест са information; ROM listings, Users- Group 
newsletters, software etc. 


TECHNICAL BULLETINS FOR VZ COMPUTERS 


# 88 Printing out System-80 screen graphics. ( 
# 91 Programming the VZ-200 computer’s joysticks. ( 
# 92 Finding where variables are stored by the VZ-200's BASIC. ( 
# 93 Problems with the X-7208 printer/plotter and Microsoft BASIC. ( 
# 94 Using the X-3245 TP-40 printer/plotter with the VZ-200 

& System-80. 
% 98 Printing lower case and control characters оп the У2200/300. 
#111 VZ-300 Mailing List tape to disk file conversions. 
#114. Obtaiñing сото om the №2300. 
#116 Fixing the printer bug іп the VZ Editor-Assembler. 

Letter оп tapes and keyboard 

General hints оп У2 

Service Manual for. printer interface 
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А BEGINNER < 
PROGRAM CONVERSION 


This month Surya provides some direction for those-trying to get to grips with 


GUIDE TO 


program conversion. Next month, hours upon hours of blood, sweat and tears will come 
to fruition in the presentation of APC's Basic Program Converter Chart. 
It's a compilation of the Basic keywords of popular micros set out to enable equivalent words 


When you've just picked up your copy of 
APC and spotted a nice little cassette- 
based database for the TRS-80 it's very 
tempting to sit down in front of your VIC 
20 and start tapping away, altering lines 
as you go and hoping that it will run 
when you've finished it. Unfortunately, 
while you can sometimes get away with 
this on very short programs, anything 
longer than twenty or thirty lines and you 
quickly find yourself in a mess. The first 
rule of program conversion is stop and 
think! This brief article is not a definitive 
guide to program conversion. ^bit it 
should give a few pointers to those 
relatively new to the game. 


So where do you start? Well, first of all 
think about whether a conversion is 
really the best approach to the problem. 
Although modifying an existing listing 
may sound easier than writing the pro- 
gram from scratch, this is not always the 
case. In choosing between a conversion 
and a complete rewrite, there are a 
number of factors to be considered: 


(а) The compatibility of the machines. 
ome machines support very similar 
dialects of Basic: the TRS-80 and the 
System 80 for example. In a number of 
cases, the program may require only a 
few minor changes here and there to 
enable it to run on a similar machine. 
You may even find that no changes at all 
are needed. 

Other machines, however, are almost 
entirely incompatible. Converting from a 
Commodore machine, for example, with 
its cursor-control statements embedded 
in the text, can be a real pain. Equally, 
converting from a powerful machine to a 
lesser beast may cause problems: a Basic 
with  recursively-defined procedures 
(procedures within procedures) and 
REPEAT-UNTIL loops can be very 
difficult to rewrite efficiently for a 
machine which doesn't support a 
structured Basic. 

Although converting from a simple 
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in your micro's dialect of Basic to be used in their place. 


machine to a more sophisticated one is 
generally easier than the other way 
around, you will be sacrificing the 
features for which you bought the 
machine. Any ZX81 listing will run on а 
Spectrum, but then what's the point of 
having a Spectrum? 


(b) Sound and graphics. 

However compatible machines may be in 
other respects, they usually bear not the 
slightest resemblance where sound 
control and graphics resolution аге 
concerned. Where a program relies 
heavily on these features, therefore, 
rewriting the program from scratch 
‘would probably be easier than 
attempting to modify it. 

(‹) Machine-code, assembler, PEEKs and 
POKEs. 


Any program relying heavily on 
machine-code or assembler, or where a 
significant amount of PEEKing and 
POKEing is-done, will be extremely 
difficult — if not impossible — to modify 
for a different machine. Anyone who 
knows enough about low-level program- 
mingto do the job would almost certainly 
be able to write their own routines in a 
fraction of the time taken to convert 
someone else's. 


(9 Тһе structure of ће program. 
must confess a sneaking sympathy for 
the view that ‘all that matters is that it 
works’. When I'm writing ordinary day- 
to-day programs for use around the office 
or whatever, my programs are neither 
elegant not structured. Having publicly 
owned up to this fatal flaw in my 
otherwise perfect character, I am now 
going to sing the praises of structured or 
modular programming. 

Structured programming is the art of 
assigning each component function of 
the program a routine of itsown. Take the 
example of a simple database. there 
would be one routine to display the 
menu, another to accept input another to 
sort data, yet another to output data toa 


I! of 2 


printer. and so forth. Each routine, or 
module is entirely independent of any 
other. being called by a central ‘control’ 
module. You could, for example. remove 
the printout routine simply by deleting a 
solid chunk of code and deleting the 
option from the menu. The rest of the 
program would be totally unaffected. 

A well-structured program is not only 
easy to read and edit is also lends itself to 
modification for a different machine. If 
(say)the bar-chartsection cannot beused 
on your machine because of the difference 
in screen-addressing. you can simply 
replace it with your own routine without 
necessitating all kinds of changes in 
other sections of the program. 

If a program is very badly structured, it 
is often easier to write your program 
rather than wading through GOTOs, 
attempting to follow a logical path which 
jumps in and out of loops and so on, and 
altering one part of the program may 
have unforeseen effects in a completely 
different part. 


(e) The program as a whole. 

Does it do exactly what youd like it to, or 
merely approximately what you want? 
There's little point іп modifying an 
exciting program if you're then going to 
have to spend a lot more time on it in 
order to get it to do something else. 

Do you understand the way the 
program works? If you don't, then not 
only are your chances of carrying out a 
successful modification pretty slim, but 
the program may not do what you 
thought it would even if you succeed! 

By this stage, then. you should have 
decided whether you're going to modify 
the program as it stands, ог write а 
completely new program of your own to 
do the job. If you decide on the latter, it 
doesn't necessarily put you right back at 
square one. The general structure of the 
program may provide a good starting- 
point and you may also be able to 
incorporate some of the routines into 
your own program. Treat the original 


T having happened in between. OK it's an 

A BEGINNER S GUIDE IO extreme example. but there are some 
funny people about... 

Anyway. next on the agenda is to go 

R RA CONVERSION through the listing making note of 


anything which looks slightly, rather 

program as a source of ideas and dont jump up and down about than totally out of place in your 
techniques, but don't be limited by it. Commodore screen-handling) Bear in ^ machine's Basic. You'll find that most of 
Let's say you've decided оп a conver- mind that you don't have to duplicatethe Һе changes will be fairly obvious even if 
sion. ГИ identify the sections likely to original screen exactly — or even you've never seen some of the keywords 
cause problems. PEEKs and POKEsare approximately — for menus and so оп. before. Most people would guess that 
an obvious place to start The author Generally, the only time when you need HOME is the same as CLS. for example. 
should have added REMark statements to recreate the screen faithfully is during Next month. APC will publish its Basic 
telling you what they do, and you need games where the graphics are vital. The | Converter Chart (which has been по 
only figure out how to achieve the same difficulty of adapting such programs has mean feat to produce) which should help 


effect on your own machine. If not, then already been mentioned. you sort out the stranger idiosyncracies of 
you're into the business of getting hold of By now, you will probably have come some machines. | 
the host machine (that is, the machine across several sections of code that If you're converting to a less powerful 
the program was written for) and trying appear totally alien to the version of Basic then you may have to work at 
out anything you're not sure of. Basic supported by your machine. Іп simulating some of the more sophis- 


Next to look for is the screen displays: these cases you must work out exactly — ticated features. FOR-NEXT loops come 
mainly graphics and PRINT АТ  whatishappening, when, where, whyand іп very handy to simulate functions such 
statements. These will probably have to how. Once you've done that (he says as INSTR$, STRINGS and so on. 
be completely rewritten. Work outwhatis lightly) it should be a straightforward And this is the point where you start 
happening — what is being plotted and matter to replace the offending code with hammering away at the keyboard! 
where messages appear on the screen. your own routine. This is when you find Provided you've done all the above 
This сап sometimes be tricky. ош just how structured the program thoroughly, a combination of the АРС 
particularly where those quaint really is. I once followed a seriesof about Basic Converter Chart and good old- 
Commodore control-codes аге con- nine GOTOs, thefinaloneendingonthe fashioned trial-and-error should see you 
cerned (you may have gathered that I line following the first one with nothing through! 
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AS practi ; 
° ° ер m Жр ; 
Beginn e r S ti $; 'nces, consider the open FILE$ Yes, you are quite correct | 
р ollowing two examples: first, repeat When converting from a while- 
On reading the October issue à e throw a die until readline (А5) wend to a repeat-until loop it is 
of АРС, I noticed that Surya | re mae Town: print A$ Sometimes necessary to insert | 
made a very common error | DIE:= d until eof аат | 
іп his `Beginner's guide to а ae 6) А close FILE$ somewhat defeats the point of | 
program conversion’. He until DIE=6 Tow а, DIE Whereas the first form the loop! It is, however, usually 
States that (repeatuntil and | This can be written ` correctly detects, when the — 2059 to make the initial test 
ГЕН чы, written as de rr file is empty, that eof is true before entering the loop, thus 
ile-endwhile) . . . are two и at convoluted ‘while’: initially — and so retaining some degree of 
forms of the same loop, one 250 (indeed, any number immediately closes the file, | *Fucture Thus: 
being the logical reverse of that isn't six) “| the second form attempts to . OPEN FILES:IF NOT OF 
the other.’ | while DIE< >6 read a line of text from ће ГЕМ PROC readfile ELSE 
There is one essential DIE:=rnd (1 to 6) empty file — thus crashing | CLOSE FILES... 
difference between while print “You throw a’ DIE the program. 8 | DEFPROC readfile 
<cond> and repeat endwhile Therefore, to summarise REPEAT 


| 


<block> <block> endwhile (although no-one but an any repeat-until may be R&4DLINE (A3) 
PRINT АЗ 


until not (<cond>) idiot would use this if they repla i i UNTI 
The "while fam checks had repeat-until available). Б. aT ША d 
the condition first. If it's Second, consider a routine clarity, but the converse is | CLOSE FILES 
false, then «block» js Deb vd P pd Sequential file: not true — attempting to и c DRM. However, uide 
uu men ie = open FILES о ае Аа wholeheartedly that а truly 
¿repeat оса ot (eof) endwhile to a repeat-until н susan shana 
causes at least one execution readline (A$) does not usually work. M 
of «block», even if the Е ee iiid: 
condition is initially false, = endwhile а. i 
Wherever a ‘repeat-until’ is 8 ETERS 
used, it may, if desired bc (eof is a boolean (true or 
replaced by a "while- false) function indicating А PG Tan 44 50) 
endwhile with inverted whether or not the End Of 
condition (although there are File marker has been сЕ 
Several cases where а `repeat- encountered. Any attempt to 
until is more natural — read a line of text when eof 
Which is precisely why any 15 true will probably crash 
decent structured language the routine). Using the 
provides both construc ts) Surya-style conversion, we 
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PART 2:SIMULATING STATEMENTS 


Lastmonth Suryalookedat the factors to consider when choosing betweenaprogramconversionand а 
completerewrite. Here he assumes thata conversion is appropriate and analyses the procedure in detail. 


The initial steps to be taken when 
converting a program from one dialect of 
Basic to another are much the same as 
when coding from scratch and just as much 
discipline is required. The starting point in 
either case is to have a clear understanding 
of what you’re setting out toachieve. Make 
sure you can follow the logic of the 
program before you attempt to modify it. 
Spend a little time working out why the 
author has done things in that particular 
way. All this may seem unnecessary at 
first, but it’s time well spent: the greater 
your understanding of the program, the 
easier the conversion will be. 

Once you're satisfied that you have a 
clear overview of the program as a whole, 
you can look at each section in detail. 
Break the program down into its compo- 
nent subroutines. This is only possible with 
a reasonably structured program, but as 
mentioned last month, programs with poor 
or non-existent structuring are best left 
alone. 

When examining each routine, take a 
special look at the variables. Determine 
which are global and which are local. 
Global variables are those used through- 
out the program. Typical global variables 
include scores in games, some counters, 
printer-settings and so on. Local variables 
are those whose values are used only within 
a given subroutine: once the routine has 
been exited, the values are no longer 
required and the variables may be used for 
adifferent purpose within anotherroutine. 
Typical local variables are counters in 
FOR-NEXT loops and flags used to check 
validity of data. 

The reason you need to distinguish 
between the two is that local variables may 
be freely changed or discarded as appropri- 
ate, but global variables need to be treated 
witha great deal of care— the program asa 
whole is dependent upon them. If you’re 
lucky, the programmer will have gone to 
the trouble of listing all global variables in 
remarks at the beginning of the program, 
and used fixed local variables so that, for 
example, wis always a FOR-NEXT loop 
counter. Failing that, there are utility 
programs available that will locate vari- 
ables for you. 


Coding 


(Note: in the examples given below, I am 
using A$ to represent any string variable 


and 100 onwards whenever line numbers 
are required. These choices are purely 
arbitrary and have no significance.) 

During the process of converting a 

program from one machine to another, 
you will very often come across a keyword 
in the original program for which your 
machine has no equivalent. While experi- 
enced programmers will soon find a way 
round the problem, those a little newer to 
the game may find themselves stuck for a 
solution. What I have done belowistolook 
at some of the common offending state- 
ments and methods of achieving the same 
effect using standard Microsoft. The 
keywords covered are not in any particular 
order. 
INKEYS$: This statement is an almost 
statutory presence in just about every 
Basic program ever written. This state- 
ment tells the computer to scan the 
keyboard to test for a key depression and 
place the result into a specified variable. 
The standard format is AS=INKEY$; the 
most common variations are A$=GET$ 
GET$- АЗ and GET A$. 

The statement takes one of two forms. 
On most machines, the processor will carry 
outasinglesweep ofthe keyboard: if a key is 
pressed during this scan, the value of the 
key pressed will be placed into the variable 
AS. If no key is pressed, A$ will be null 
(empty). On some machines, however. the 
computer will carry out a continual series 
of sweeps until a key-press is detected. A 
few machines offer both forms. 

A continuous scan using the former 
version of INKEYS is straightforward: 
100 AS-INKEYS:IF A$="" THEN 
СОТО100. The BBC, however. goes а 
step further in offering a timed keyboard 
scan in the form А$=ПЧКЕХ$(ите), 
where time is given іп 100ths of a second. 
To simulate this using the standard 
INKEYS statement, we use a FOR-NEXT 
loop thus: 100 FOR А-0 TO 
(value) AS-INKEYS:NEXT. The value 
ofthe variable will need to be adjusted to 
suit Since different machines have 
different processing speeds, you'll haveto 
experiment with different values to 
establish some kind of relationship 
between the value of the FOR-NEXT 
counter and real time. 

Of course, the example given above 
would return the final key pressed if there 
were two or more key depressions during 
thescan period, butthisiseasily overcome: 


100 ҒІ.АС-0:А%-“” 

110 FOR A=0 TO (value) 

120 BS=INKEY$:IF NOT В$=“” AND 
FLAG=0THEN A$=B$:FLAG=1 

130 NEXT 

The value of the first key depression is 
now stored іп А$. If no key was pressed, 
then A$ will be empty. 

INSTR: This statement is used to search 

onestring to find out whether it contains a 

second string. The format is INSTR(main 

string, sub-string) where the starting 

position of the sub-string isreturnedon a 

successful match and 0 is returned if the 

search fails. INSTR(“APC”,“P”) would 
return 2 while INSTR(“APC”,“X”") would 

return 0. 

We might, for example, want to find out 
whether NAMES contains the sub-string 
‘Rev... Using INSTR. we would do this 
like so: 

100 IF NOT(INSTR(NAMES.“Rev.”) 
—0) THEN PRINT NAMES;" is a 
priest” 

To simulate this in standard Microsoft, 
we use MIDS. In the above example, we 
would do so thus: 

100 FLAG=0:FOR 
(LEN(NAMES)-4 

110 IF MIDS$(NAMESA,4)="Rev.” 
THEN FLAG-7I 

120 NEXT 

130 IF FLAG=! THEN PRINT 
МАМЕ$'“ a priest" 

Note that on an Atari, line 110 would 
read as follows: 

110 IF NAMES(A,4)=“Rev.” 
FLAG=! 

and on a Sinclair machine, it would read: 

110 IF NAMES(A TO АЗ 4)=“Веу.^ 
THEN FLAG=1 

These differences are due to the non- 
standard forms of MID$ supported by 
these machines. The original example 
should work on all other dialects of Basic. 
PROCEDURES AND FUNCTIONS: 
User-definable tunctions are supported in 
varying degrees of sophistication by a 
number of machines Procedures and 
functions make programs infinitely neater 
and more readable, but they dont actually 
achieve anything which cannot be 
duplicated using ordinary sub-routines. 

Some dialects of Basic will allow you to 
GOTO or GOSUB a variable which 
greatly aids readability — the Basic 
Converter Chart will tell you which 
machines do if you look under GOTO. 


A=] TO 


THEN 
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REPEAT-UNTIL and WHILE-WEND. 
These are two forms of the same control 
loop, one being the logical reverse of the 
other. WHILE-WEND checks that a given 
expression is true and then executes all 
statements up to the first WEND state- 
ment encountered. The computer then 
returns to the original condition to check 
whether it is still true. If the condition is 
false, the statement following the WEND 
statement is executed. 


For example: 

100 REM — Silly example 

110 Х-10 

120 WHILE Х>0 

130 PRINT “The current value of X 
=“;Х;”.> 

140 X=X-1:WEND 

150 REM - Xisnowzero and the WHILE 
test fails 


In a WHILE-WEND loop, the loop is 
repeated while the test expression is true. 
A REPEAT-UNTIL loop works the other 
way around. All statements between 
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REPEAT and UNTIL are executed until 

the test expression is true. Thus the above 

example would be written: 

100 REM — Same $Шу example 

110 X210 

120 REPEAT 

130 PRINT “Тһе current value of X 
=“;Х;>.> 

140 X=X-1:UNTIL Х=0 

150 КЕМ - X is now zero and the 
КЕРЕАТ test is satisfied 


Converting from one structure «b the 
other is thus straightforward. But the 
majority of present-day Basics offer neither 
of the above. To create the same effect, we 
have fo use a statement that causes 
purists to gasp in horror and head 
straight for the reassurance of their 
micro: the СОТО. 


Thus: 

100 REM — Here we go again 

110 X=10 

120 PRINT “The current value of X 


eer > 
Ж”. 


АРС Nw $5 


КЬ £4, 


130 IF X>0 THEN X=X-—1:GOT0120 
140 REM - Xisnowzero and the test fails 


While somewhat less elegant, the net 
result is the same. We can see that 
rewriting a WHILE-WEND or REPEAT- 
UNTIL structure is simply a matter of 
manually inserting the test (using IF- 
THEN) and pointer (GOTO). 

STRINGS is a statement which ailows you 
to repeat a given sequence of characters. 
The format is STRING$(number of times 
to print string,string). If you wanted to 
printalineofasterisksacrossan80-column 
screen, for example, you would state: 
STRING$(80,**"). If your machine 
doesn'tsupportthisstatement,then we fall 
back once again on the ever ready 
FOR-NEXT loop. Thus: FOR А-1 ТО 
80:PRINT“*”;:NEXT, the string is simply 
duplicated, and the numeric argument 
placed in the FOR-NEXT loop. 

TAB. This 15 supported by most machines. 


Next month: Graphics and sound 
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| CONVERTER CHART 


One day, all computers will understand the same 
language (and read each others’ disks and address the 
screen in the same way and... ). To tide you through 
until this great day arrives, however, we set out to 
beg, steal or even buy eleven of the most popular 
home micros to produce this APC Basic Converter 
Chart. 

Whether you re trying to convert that amazing 
Atari game to run on your Apple, have just spent the 
past three hours wondering why your new 
Commodore 64 micro doesn’t seem to give the right 
answer to a FRE statement or simply want to write 
programs which can be easily converted to other 
micros, the APC Basic Converter Chart is here to 
help. 

a isn't possible, of course, to cover every micro nor 
every command supported by each of the machines 
included — much as we'd like to. Also, since different 
micros have an annoying tendency to use the same 
keyword to perform slightly — or totally — different 
functions, converting from one machine to another 
will require some rewiting beyond simply changing 
the syntax. What this chart aims to do, however, is 
provide you with an at-a-glance syntax comparison 
using Microsoft Basic as the standard. The chart won't 
convert programs for you, but it should save you the 
trouble of wading through masses of manuals written 
by authors who have apparently not yet heard about 
alphabetical indexing. 

Due to the limited amount of information we can 
squeeze into each box, it hasn't always been possible 


го 7. 


to indicate the full power of every command or 
statement. Most LIST statements, for example, allow 
you to list the whole program, list a specified line, list 
all lines within a given range, list all lines up to a 
specified line or list from a specified line. Fiddling 
around with brackets in an attempt to represent each 
of these possibilities would lead to a totally 
incomprehensible entry. It should be assumed, 
therefore, that we re dealing with the most common 
use of each statement here and that other uses may be 
available. 

Something to be aware of is that identical syntax 
may have very different effects on different machines. 
SYSTEM on a TRS-80 will transfer program control to 
a machine language routine while in Microsoft Basic 
closes files prior to returning to the operating 
system. 

You will notice that we haven't included anything 
on sound and graphics; with most of today’s micros 
offering both high-resolution graphics and fairly 
sophisticated sound control, this area would require a 
chart of its own. APC will be looking at sound and 
colour in a later issue. 


The abbreviations used in the chart are as 
follows: 


addr = address, exp -- expression, 

sub = subscript, stmt = statement, 

var = variable, 

Square bracket [ ] indicates optional code. 
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CLOSE "filename" 


CONT 


CLOSE filono 


CLA( exp) CONT 


ESZEDEN 


WA — 281 


Hi 
ғ 


COS(exp) 


COS(exp) 


С05(вхр) 


Sop) 


COS(exp) 


COS( юр) 


(051 exp) 


Slop) 


COS(exp) | 


RDS & FORMATS | 


Í DATA 


END IF/THEN/ELSE 


Я Yop ic wa sont 
Lists data p be в omu. If not 
' used in a READ Edit a program | Stop program & BSE or фм 
statement. А eum p BASIC Я LEX 
DATA const ЕР exp) FOR ver a юр TO | FRE(exp) Bs GET [4] S| 6OSUB GOTO Бес | F =o THEN m 
(ой...) wp [STEP в) по [.record по) [ELSE stmt) 
DATA CONST DIM var sub) [semen editing FOR vat = exp | FRE(exp)Now: GOSUB Wneno/ | GOTO reno H exp THEN stmt 
[.const . . .] ineno [.vad sub) . . .] | шалу CTRL kev:] TO exp юр із а dummy ver/axp Note: no ELSE 


variable 


ШЕ 


DATA const [cursor editing] FOR w x exp TO GET # Вет, | GOSUB kinena/ | GOTO блепо/ É exp THEN seat 
[.const . . .] eg [STEP еф] record ver/exp vy Note no ELSE 
DATA const DEF FNvar [ (маг. DIM Vad sub) [cursor editing) | END EXP{ exp) FOR ver a exp TO | НМЕМ-ТОР МАЛ # Geno | GOSUB lineno/ F exp THEN simt 
[.const . . .] var] = еф [.var{sub) . . .] wp [STEP ex] mcord [ELSE stmt] 
(соя...) 
DIM var sub) ursor editing] FRE(exp) Not. F exp THEN sent 
[.var(sub) . . .] exp в a dummy Note: no ELSE 


variable 
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3 
d 
tj 


` + САТА оди (оф DIM varsub) 
("ох") (var sub)) 


8 
i 


[cursor editing] 
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Ë 
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em [STEP ex] [ELSE som) 


3 3 3 3 
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i 
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z 
8 
В 
88 
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a 


DIM vad sub) EXP( exp) FOR w z еф TO F ep THEM им 
[.var(sub) . . .] юр (STEP єф] Маж no ELSE 
EXP( exp) FOR vesexp ТО GOTO UNENO | Е exp THEN тәм 
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EDIT Note: use Әсі exp) FOR ver z exp TO GOTO UNENO | IF еф THEN stus 
ara D нікі exp [STEP exp] vevexp Мож ao ELSE 
ine 
EDIT (fineno) EXP(exp) FOR ver s exp TO F op THEN тэк 
Қож cursor fine ep [STEP еф] Аж no ELSE 
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INPUT[STRING.] LEFTS (string) 


APPLESOFT ТАТЫН oni 


[deperds on | ШАП FLENAME | LOG{exp) MIDS| string, 
ape жәй зет) 


usually ШЅТ'Р)] 


INPUT [exp] var à LEN( string) . ибт ер" одар [Be [Обехр) ялдап 
АТАВ! (ш.ш | i (net) 

INPUT [exp] р 

string-vor Бе 


ВВС MICRO 


MIDS| string, 
sari eogi) 


LEFTS( string, 
length) 


LEN( string) 


MIDS! string, 
star(,length]) 


GET var INPUT [string;] | INT(exp) LEFTS{ string, 
COMMODORE 64 ME =" 
KEY INT(sal-sxp) var;i, length) | LEN(string) ineno. ve; mm-1),. 
MICROBEE s г += a 
m-i 


GET var INPUT [STRING, LEN( string) A: & MIOS{ string, 
РЕТ ум |ум...] H яве!) 


MIDS[ sing. 
start length] 


WKEYS INPUT [string] LEFTS{ string, 


| TRS-80/SYSTEM 80 ми [var . . .] length) 


LEN (string) [LET] var < exp LOG (а) MIDS (ир 
start, [.len]) 
sting(TO finish) | LEN( sting) LUST (ineno) LOAD Мах) sting stat TÜ 
| fish) 
МАЛ [string ) string (TO биз) | LEN string) UT vers еф LUST (ілес) | LOAD Same" |е) sr sərt TÜ 
ZX SPECTRUM [con] яак =з 
aire 
ашта for кі 


Page 92 Australian Personal Computer 


Nov $4 aln) ro - 95 
4 o 74 


RDS & FORMATS - 


| RANDOMIZE| READ 


Мей кот data 
быз current serene into 
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ON ERROR On exp GOSUB | On exp GOTO PRINT [[ #] RANODMZE READ wr 
ineno lineno fieno] [ exp] (е) (ы...) 


[ineno ...J |і...) (аф... 1 
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TRAP lineno/ 
var/axp 

ON ERROR GOTO 
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GOTO ineno 


РЕЕКІ addr) 


ON exp GOSUB 
ineno 
[.lineno . . .) 


READ ((lineno. )) 
veri, var) 


ON exp GOSUB 
(xx. өр) )іғаго 
lle... 


PEEK( add ress) 


ON exp GOSUB РЕЕК( addr) POKE addr,byte | PRINT #fiena | RND(-TI) READ VAR 
Era [, record . . .] 


PEEK( addr) POKE addr, byte 


| МЕМ МЕХТ мас] 


Жи ERES 

Consult OUT post byte | РЕЕ addr) POKE addr, byte 
| Microdrive 
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| MICROBEE 


SIN(exp) 
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| ZX81 


SIN(exp) 
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WHAE/WEND | WIDTH 


SYSTEM TAN TROFF TRON 

Сом Ñas for Tangent of 

кіт 0 ортиб | expression in 5 

system. ndante Traca ofi. Таса on 
j шм m 


USR(psrametar) 


SOR(exp) STOP STRINGS(length, | STRS(exp) USR(psramete | МАЦ string) [no WAIT stmt | REPEAT stmt WIDTH. vel Now 
sting) but see INKEYS] | МП exp № | O-'undinvtaf 
туепа logic 
USR( parameter) 


STR( exp) TRACE OFF USR(adóress 
(, ivtager- exp) 


ОҢ(ехр) $ТОР STRS(exp) ТАМ exp) USR(pacemetar) | МАЦ string) WAIT addr, 
і p.ep 
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+ 


POKE 32, lett 
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PLAY 0, int 
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STRS (exp) SYSTEM pius 
code following 
pomot Note: 
not equivalent 


STRS( кр) 
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А BEGINNER'S GUIDE ТО PROGRAM CONVERSION 
PART 2:SIMULATING STATEMENTS 


In the October issue of APC Surya looked at the factors to consider when choosing between a program 
conversion and a complete rewrite. In the November issue he followed that up with the Basic Converter Chart 
and now he continues the series on the conversion of one Basic dialect to another with the assumption 
that a conversion is appropriate and analyses the procedure in detail. 

Next month Surya will continue with a look at graphics and sound conversion. 


The initial steps to be taken when 
converting a program from one dialect of 
Basic to another are much the same as 
when coding from scratch and just as 
much discipline is required. The starting 
point in either case is to have a clear 
understanding of what you're setting out 
to achieve. Make sure you can follow the 
logic of the program before you attempt 
to modify it Spend a little time working 
out why the author has done things in 
that particular way. All this may seem 
unnecessary at first but its time well 


spent: the greater your understanding of 


the program. the easier the conversion 
will be. 

Once you're satisfied that you have a 
clear overview of the program as a whole, 
you can look at each section in detail. 
Break the program down into its 
component subroutines. This is only 
possible with a reasonably structured 
program. but as mentioned in the 
October issue. programs with poor or 
non-existent structuring are best left 
alone. 

When examining each routine, take a 
special look at the variables. Determine 
which are global and which are local. 
Global variables аге those used 
throughout the program. Typical global 
variables include scores in games. some 
counters, printer-settings and so on. 
Local variables are those whose values 
are used onlv within a given subroutine: 
once the routine has been exited. the 
values are no longer required and the 
variables may be used for a different 
purpose within another routine. Typical 
local variables are counters in FOR- 
NEXT loops and flags used to check 
validity of data. 

The reason you need to distinguish 
between the two is that local variables 
may be freely changed or discarded as 
appropriate. but global variables need to 
be treated with a great deal of care — the 
program as a whole is dependent upon 


them. If you're lucky. the programmer 


will have gone to the trouble of listing all 
global variables in remarks at the 
beginning ofthe program. and used fixed 
local variables so that. for example. w is 
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always а ҒОК-МЕХТ loop counter. 
Failing that there are utility programs 
available that will locate variables for 
you. 


° 
Coding 
(Note: in the examples given below, I am 
using A$ to represent any string variable 
and 100 onwards whenever line numbers 
are required. These choices are purely 
arbitrary and have no significance.) 

During the process of converting a 

program from one machine to another, 
you will very often come across a keyword 
in the original program for which your 
machine has no equivalent. While experi- 
enced programmers will soon find a way 
round the problem. those a little newer to 
the game may find themselves stuck for a 
solution. What I have donebelowistolook 
at some of the common offending state- 
ments and methods of achieving the same 
effect using standard Microsoft. The 
keywords covered are notin any particular 
order. 
INKEYS$: This statement is ап almost 
statutory presence in just about every 
Basic program ever written. This state- 
ment tells the computer to scan the 
keyboard to test for a key depression and 
place the result into a specified variable. 
The standard format is AS=INKEY‘$: the 
most common variations are А$= GET$, 
СЕТ$= А$ and GET A$. 

The statement takes one of two forms. 
Onmost machines, the processorwill carry 
out asinglesweep of the keyboard: ifa key 
is pressed during this scan, the value ofthe 
key pressed will be placedinto the variable 
A$. If no key is pressed, A$ will be null 
(empty). Onsome machines, however, the 
computer will carry out a continual series 
of sweeps until a key-press is detected. A 
few machines otter both forms. 

A continuous scan using the former 
version of inkey$ is straightforward: 
100 A$=INKEYS:IF A$="" THEN 
СОТО100. The BBC. however. goes a 
step further in offering a timed keyboard 
scan in the form AS-INKEYS(time). 
where time is given in 100ths of a second. 


lof 2, 


To simulate this using the standard 
INKEYS statement, we use a FOR-NEXT 
loop thus: 100 FOR А-0 TO 
(value): AS=INKEY$:NEXT. The value 
of the variable will need to be adjusted to 
suit. Since different machines have diffe. 
rent processing speeds, you'll have to 
experiment with different values to estab- 
lish some kind of relationship between the | 
value of the FOR-NEXT counter and real 

time. | 

Of course, the example given above 
would return the final key pressed if there 
were two or more key depressions during | 
thescan period, butthisiseasily overcome: |! 
100 FLAG=0:A$=""" 

110 FOR A=0 TO (value) 
120 BS=INKEY$:IF NOT В$=“” AND | 

FLAG=0 THEN A$=B$:FLAG=1 | 
130 NEXT | 

Тһе value of the first key depression 15 | 
now stored in A$. If no key was pressed, | 
then A$ will be empty. 
INSTR: This statement is used to search | 
one string to find out whether it contains a |! 
second string. The format is INSTR(main 
string, rd where the starting 
position of the sub-string 1s returned on а 
successful match and 0 is returned if the 
search fails. INSTR(CAPC"."C") would 
return 2 while INSTR(`APC”U X") would 
return 0. 

We might, for example, wantto findout 
whether NAMES contains the sub-string 
*Rev.. Using INSTR. we would do this 
like so: 
100IF | NOT(INSTR(NAMES."Rev.") 

=0) THEN PRINT NAMES;" is a 
vicar." 

To simulate this in standard Microsoft. 
we use MIDS. In the above example, we 
would do so thus: 

100 FLAG=0:FOR 
(LEN(NAMES)- 4) 

110 IF МІРҘ(МАМЕЗ,А 4) =“Кеу.” 
THENFLAG=1 

120 NEXT 

1301Е FLAG=1 THEN 
NAMES: is a priest.” 

Note that on an Atari, line 110 would 
read as follows: 

110 IF NAMES(A,4)-"Rev." 
FLAG=1 


A=] TO 


PRINT 


THEN 


andona Sinclair machine. it would read: 

110 IF МАМЕ$ (А TO А44)-“Кеу. 
THEN FLAG=1 

These differences are due to the non- 
standard forms of MID$ supported by 
these machines. The original example 
should work on all other dialects of Basic. 
PROCEDURES AND FUNCTIONS: 
User-definable functions are supported in 
varying degrees of sophistication by a 
number of machines, but you are most 
likely to come across the extended use of 
procedures and functions in BBC pro- 
grams. Procedures and functions make 
programs infinitely neater and more read- 
able. but they don't actually achieve 
anything which cannot be duplicated using 
ordinary sub-routines. 

Some dialects of Basic will allow you to 
GOTO or GOSUB a variable which 
greatly aids readability — the Basic 
Converter Chart will tell you which 
machines do if you look under GOTO. 

Sharp Basic SP-5025 has a number of 
weaknesses which are discussed in the 
article 'Sharp Logic’ in the September 
issue. 

REPEAT-UNTIL and WHILE-WEND. 
These are two forms of the same control 
loop. one being the logical reverse of the 
other. WHILE-WEND checksthata given 
expression is true and then executes all 
statements up to the first WEND state- 
ment encountered. The computer then 
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returns to the original condition to check 
whether it is still true. If the condition is 
false, the statement following the WEND 
statement is executed. 


For example: 
100 REM — Silly example 
110 X210 
120 WHILE Х>0 
130 PRINT "The current value of X 
uu 
140 X2 X- I:WEND Ace 
150 REM - X is now zero and the WHILE 
test fails 
In a WHILE-WEND loop, the loop is 
repeated while the test expression is true. 
A REPEAT-UNTIL loop works the other 
way around. All statements between 
REPEAT and UNTIL are executed until 
the test expression is true. Thus the above 
example would be written: 


100 REM — Same silly example 
110 X210 
120 REPEAT 
130 PRINT “Тһе current value of X 
mU NU 
140 Х=Х- I:UNTIL Х-0 
150 REM - X is now zero and the 
REPEAT test is satisfied 
Converting from one structure to the 
other is thus straightforward. But the 
majority ofpresent-day Basics offer neith- 
er of the above. To create the same effect, 
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we have to use a statement that causes 
purists to gasp in horror :the СОТО. 


Thus: 
100 REM — Here we go again 
110 X210 


120 PRINT “The current value of X 
=s. X: 
130 IFX>0 THEN X=X-1:GOTO120 
140 КЕМ- Xisnowzeroand thetest fails 
While somewhat less elegant, the net 
result is the same. We can see that 
rewritinga WHILE-WEND ог REPEAT- 
UNTIL structure is simply a matter of 
manually inserting the test (using IF- 
ТНЕМ) and pointer (GOTO). 
STRING$ is astatement which allows you 
to repeat a given sequence of characters. 
The format is STRING$(number of times 
to print string,string). If you wanted to 
printa line of asterisks across ап 80-column 
screen, for example, you would state: 
STRINGS$(80,"*"). If your machine 
doesn’tsupport thisstatement, then we fall 
back once again on the ever ready 
FOR-NEXT loop. Thus: FOR A=1 TO 
80:PRINT**";: NEXT, the string is simply 
duplicated, and the numeric argument 
placed in the FOR-NEXT loop. 
TAB. Thisissupported by most machines, 
except that on the BBC micro the TAB 
function is performed by SPC while TAB 
prints in predetermined screen fields. 


2 о} 2. 


However dhi; Version eppeees L АҺ. move Co e pl! 


eg, 5% ТАБ Command, 


А BEGINNER’S GUIDE ТО PROGRAM CONVERSION 


PART 3:APPLE ІІ GRAPHICS 


Surya begins the graphics supplement to the APC Basic Converter Chart with a look at the Apple Il. 


Applesoft supports no less than four 
forms of tab statement: SPC, TAB,HTAB 
апа VTAB. SPC (х) prints x spaces. So, 
SPC(10);" Hello" would move the cursor 
ten columns forward and then print 
‘Hello’. TAB (x) moves the cursor to 
column x. If x is less than the current 
cursor column, then the statement is 
ignored. Thus SPC moves the cursor 
relative to its current position, wrapping 
around lines as necessary, whereas TAB 
moves to the absolute screen column 
specified. 

HTAB (Horizontal TAB) is similar to 
TAB, but can move left as well as right. 
HTAB (x) moves the cursor to column 
regardless of the cursors current 
position. VTAB (Vertical TAB) is used to 
position the cursor vertically. VTAB (x) 
moves the cursor to line x leaving its 
column position unchanged. 

As an example: 

100 REM: Tabulating on an Apple II 

110 HOME: REM clearscreen, position 

cursor top-left. 

PRINT ТАВ(10); "Line 1, column 

10" 

130 PRINT 

5РС(5); 

“апа”; 

140 REM Above line would appear оп 
screen as Line 2, column O and 
column 22 

150 PRINT VTAB(12); HTAB(19); “*“: 
REM centre of 40-column screen 

160 END 

To find the current cursor position, the 
POS (POSition) statement is used. POS 
(x) returns the current cursor column. 
The expression x is a dummy value (that 
is, the value has no effect) but must bea 
valid expression which Applesoft can 
evaluate. 

INVERSE switches on the inverse 
video attribute, and is cancelled by the 
NORMAL statement. So: 

100 HOME 

110 INVERSE 

120 PRINT "This will be printed in 

inverse" 

NORMAL 

PRINT "This will 

normally” 

150 END 

FLASH works in a similar fashion to 
INVERSE, switching on the flashing 
attribute: 

100 HOME 


120 


“Line 2, column 0% 
"column 22”; НТАВ(1 6); 


130 


140 Бе printed 
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110 FLASH САРТ 
120 PRINT “This text will flash” 

130 NORMAL 

140 PRINT “And this text won't!“ 
150 END 

Finally, the SPEED statement allows 
the user to control the speed at which 
text is displayed on the screen. By 
default, the Apple prints text to the 
screen as fast as it can, but other speeds 
can be selected. Slow speeds (<100) 
are useful for displaying instructions and 
so on, where the display speed is set to 
the average reading speed. 

The statement takes the form 
SPEED=x, where x is an expression 
between O (slowest) and 255 
(default): 

100 HOME: 5РЕЕО-О 

110 PRINT “This will be printed very 
slowly...” 

SPEED=255 

PRINT “Апа this will be printed at 
the normal speed” 

140 END 

The easiest way to simulate slow 
printing on other machines is to place the 
With many things in the micro 
computing world, there are agreed 
standards. The ASCII code for 
communications; the RS232, Cen- 
tronics and IEEE for interfacing; the 
5.25in disk and so forth. But when it 
comes to graphics it seems that 
manufacturers and designers don't 
know the meaning of the word 
'standard'. The reason for this is simple. 
In the time it would take to debate, argue, 
redesign and eventually implement a set 
of standards, the graphics capabilities of 
the machines being developed would 
have increased beyond all recognition, 
rendering the standards useless. 

Different machines not only use 
different screen resolutions, but the 
range of graphics-handling statements 
supported varies from simple SET, 
RESET and POINT to a whole array of 
sophisticated features like drawing 
circles and filling-in shapes. All this is а 
rather roundabout way of saying that it is 
not possible to cover the subject of 
graphics in the form of a quick-reference 
chart as with the APC Basic Converter 
Chart. (See November ‘83, АРС.) 

What I have set out to do in this series 
of articles is to give you enough 
information about the graphics-handling 
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of each machine covered Бу the chart to 
enable you to work out what is 
happening in a listing. 

Incidentally, as a general tip when 
converting graphics, | recommend 
mapping out a picture of the graphics 
screen of the machine from which you 
are converting on square-ruled paper, 
marking on it rough values. Next, place a 
piece of tracing paper over this grid and 
follow the listing through, sketching in 
lines and text. You can then place this 
tracing paper over a map of your own 
screen to see roughly what values you 
will need to use. 

The complexity of micros’ graphics 
often make program listings for one 
machine all but incomprehensible to the 
owners of other computers. There are a 
lot of well written listings in APC for a 
variety of machines which readers would 
no doubt like to get up and running on 
their own micros. For this reason it is 
worthwhile going into the subject of 
graphics in a fair amount of detail. 


The Apple Family 


The Apple ІІ has three variations: the 
Apple Il, the Appie 1+ and the Apple Пе. 
All three support Applesoft Basic and 
therefore use the same graphics 
handling statements. 

Applesoft supports three screen 
modes — text, low-resolution graphics 
and high-resolution graphics. These are 
called by the statements TEXT, GR and 
HGR respectively. 


Text 


The normal text screen comprises 24 
lines by 40 columns. Ап 8O-column 
screen is available by installing an 
optional circuit board; and  APC 
programs written for an 8O-column 
machine will have this clearly stated in 
the accompanying notes. 

Text mode has ten statements which 
may be used to format text output on the 
screen: 

HOME clears the screen and positions 
thecursoratthe top-left corner. On most 
machines, this is achieved by the 
statement CLS. 
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text into DATA statements and use а 
FOR-NEXT loop to print one character at 
a time. А delay loop is used after each 
character is printed to achieve the 
reduced speed: 
100 REM: This solution is designed to 
be portable, not elegant! 
FOR a=1 TO 3: REM number of 
data statements to read 
READa$: REM read line of text to 
be printed 
FOR b=1 to LEN(a$) 
PRINT МІ0$(а$,6,1);: 
print one character of a$ 
FOR c=1 to 12: NEXT: REM 
empty loop to cause delay 
REM adjust value of above 
loop to vary speed 
NEXT b: REM repeat for next 
character in data statement 
PRINT: REM move cursor onto 
next line 
NEXT a: REM repeat for next data 
statement 
DATA This text will be printed 
slowly 
DATA So will this 
DATA And this 
END 


110 
120 


130 
140 REM 
150 


160 
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As promised last month, we continue 
the Apple ПІ guide with high-res graphics 
and sound. 


High resolution graphics (HGR) 
The HGR screen is addressed as 280 
columns by 192 rows with six colours 
available. The Apple reserves enough 
memory for two high resolution screens, 
these being called by HGR and HGR2 
respectively. Four text lines are agzin 
reserved by default and can be made 
available for graphics use by the state- 
ment POKE — 16302,0 and reset to text 
by POKE — 16301,0. 

Two POKEs which you are likelyto find 
in Apple programs using the HGR 
mode are: 

POKE — 16300,0 to switch from HGR2 
.back to HGR 
16303,0 to switch from 
graphics to text retaining text- 
windows and cursor position. 

In HGR mode, there are two main 
graphics statements: HCOLOR апа 
HPLOT. HCOLOR-x sets the foreground 
colour to x, defined as: 

black 

green 

violet 

white 

black 
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Low resolution graphics (GR) 


The low-resolution screen on the Apple 


is addressed as 40 columns Бу 48 rows. 
Sixteen colours are available. The bottom 
four lines (8 rows) are normally reserved 
for text, but the oft-used POKE-16302,0 
makes these available for graphics use. 
(The CALL-1998 statement which 
usually follows the above POKE simply 
sets the extra rows to black. 

Once in GR mode, 
graphics statements available: - 
COLOR=x sets the foreground colour, 
where x is in the range 0-15 and is 
defined: . 
black 
magenta 
dark blue 
violet 
dark green 
grey 
medium blue 
light blue 
brown 
orange 
a different shade of grey! 
pink 
green 
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5 orange 
6 blue 
7 white 

Although there are eight codes, two 
are redundant (4 and 7), leaving six 
effective colours. 


HPLOT is an easy-to-follow statement 
operating in a similar way to most 
machines DRAW statements: 

HPLOT x,y lights point (x,y) in the 
current colour. 

HPLOTx1,y1 TOx2,y2 draws a line from 
(x1,y1) to (x2,y2). Cordinates can be 
‘chained’, so that the following HPLOT 
statement: 

HPLOT О,О ТО 279,0 ТО 279,191 ТО 
0.191 TO 0.0 

draws a rectangle around the edge of the 
screen. Mostbasics don't allow this type 
of chaining, so you'd have to split up 
each pair of coordinates and DRAW, SET 
or PLOT each line separately. 

HPLOT TO х,у draws a line from the 
current cursor position to coordinate 
(xy); it carries on from where it last 
left off. 

There are seven other graphics 
statements in Applesoft HGR mode: 
DRAW, XDRAW, SCALE, ROT, 
SHLOAD, BSAVE and BLOAD. These 
statements concern a feature known as 
shape tables. Shape tables are too com- 
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there are five ; 


13 yellow 
14 aqua 
15 white 

Although | just said that x must be in 
the range О-1 5, it is possible to use any 
value up to 255. But since 16 is 
equivalent to O, 17 to 1 and soon, this: 
fact is not spectacularly useful. 

PLOTxy is used to light up the 
specified block in the current foreground 
colour, where xis the column and y is the 
row. In GR mode, the origin (0,0) is top- 
left. 

HLIN x1,x2 AT y is used to draw a 
Horizontal LINe in the current fore- 
ground colour from (x1,y) to (x2.y) 
where x1 and x2 are different column 
numbers and y is the row. 

VLINy1,y2 ATx — of course — draws 
a Vertical LINe from (xy1) to (x y2) 
where x is the column number and у1 
and y2 are different rows. 

SCRN (x,y) returns the code of the 
colour at position (xy. On most 
machines, this is achieved using a POINT 
(xy) statement. 

Next month: Apple Il high resolution 
graphics and sound, and the TRS-80/ 
System 80. 


plex to go into in the space available here 


and, іп any case, the information 
wouldn't be much use to owners of other 
machines since you will find them all but 
impossible to duplicate. 

Shape tables are a form of sprite, a 
kind of sophisticated use-definable 
character. Created by POKEing values 
into memory, shape tables may be saved 
to tape or disk for later loading. The scale 
and orientation of the resultant shapes 
can be manipulated using the 
statements mentioned above. Anyhow, 
unless you are very familiar with both 
Applesoft and the machine you are tran 
slating to, any program making liberal 
use of DRAW, XDRAW, SCALE, ROT, 
SHLOAD, BSAVE or BLOAD should be 
left well alone. 


Sound 


There are only two ways to produce 
sound on Apple: PRINT CHR$S(7) and 
POKEing memory location ~ 16336. 
PRINT СНН%(7) produces a short beep, 
as with most machines. Producing any- 
thing interesting from the noises emitted 
by POKEing — 16336 is a decidedly 
frustrating and not over-fruitful task, so 
this POKE may be safely omitted when 
converting to other machines, 
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TRS-80/System 80 


Surya continues his analysis of each machine on the APC Converter Chart 
(see November 1983 issue). High and low resolution graphics and sound 
capabilities for the System 80 and TRS-80 Model 100 are featured this month, 
plus the final part of the Apple !! conversion. 


it is PRESET. The additions B and F are 
optional. If B is included, than a B)ox will 
be drawn with (x1,y1) as onecorner and 
(х2,у2) as the other. If the F is included, 
the box will be Е)Шед — either PSET or 
PRESET, depending on the value of a. 
The model 100 also supports sound 
(of the beep variety. BEEP beeps. 
‘SOUND pitch, length’ plays the specified 
note and is similar to most sound 
statements. 


able micro. The graphics resolution is 
239 x 63, and the graphics commands 
are PSET, PRESET and LINE, PSET and 
PRESET are exact equivalents of SET and 
RESET. Considering that LCD screens 
are not noted for wonderful graphics, the 
LINE statement is surprisingly powerful. 
The format of the statement is LINE 
(x1,y1)—(x2.y2), a, BF. The statement 
draws a line from the first coordinates to 
the second. If a=1, the line is PSET; if O, 


The TRS-80 has limited graphics 
facilities; not surprising when you look at 
how long the machine has been around. 
The graphics resolution is 64 x 48, the 
origin (0,0) being at the top left-hand 
corner of the screen. Thus: 

100 Rem: A totally pointless program 
110 CLS: Ү-0 

120 FOR X=0 ТО 63 ӨТЕР 1.3 

130 Y=Y+1 

140 SET ((INT(X)),Y) 

150 NEXT X 

draws a line diagonally across the 
screen. 

The graphics statements are SET, 
RESET and POINT. SET(x,y) lights the 
block at coordinate (xy) RESET 
switches it off again. POINT(x,y) tests 
the specified point, returning — 1 if it is 
lit and O if it is not. 

The TRS-80 also supports a PRINT @ 
statement. This allows text to be placed 
at a specified location on the screen. For 
the purposes of the PRINT @ statement, 
the top row of the screen is numbered 
from zero at the left-hand side to 63 at 
the right. The next line is numbered 64 to 
127,and so onto the bottom line, 960 to 
1023. To print at the bottom line, for 
example, you simply PRINT @ 960, 
thus: 

ТОО PRINT © 960, “This is printed on 
the bottom line”; 

The semi-colon at the end of the 
PRINT statement supresses the line feed 
which would otherwise scroll the 
screen upwards. 

The TRS-80 does not support sound 
as standard. ; 


Тһе System 80 


Тһе System 80 і5 ап oriental imitation of 
the American TRS-80. Unlike most 
imitations, however, the System 80 is 
every bit as good as the original. The 
TRS-80 is slightly fussier about syntax 
that the System 80, but the two are all 
but identical. Most Basic programs are 
interchangeable. Іп APC’s Programs sec- 
tion, the label TRS-80/System 80 is 
used to describe programs written on 
either machine. 


The TRS-80 Model 100 


The TRS-80 Model 100 is Tandy's port- 
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Atari 


This month, Surya continues his analysis of each machine on the APC 
Convertor Chart with a look at graphics and sound capabilities on the Atari 


The Atari is available in Australia in three 
forms: the 400, 800 and most recently, 
the 600XL. The three models are 
upward-compatible, and all have the 
same graphics capabilities. 

The Atari supports nine different 
screen modes, numbered O to 8. Of 
these, the first three are text modes, the 
rest graphics. A summary of the modes 
is given in Fig 1. 

The statement GRAPHICS x is used to 
select the desired mode, Mode O is 
the default. 


Mode Resolution 


Full screen 


40x24 
20x24 
20x12 
40x24 
80x48 
80x48 
160x96 
160x96 
320x192 


Type 


Text 

Text 

Text 
Graphics 
Graphics 
Graphics 
Graphics 
Graphics 
Graphics 


Oo 4001» ON >о 


Fig 1. Atari screen modes 


In Fig 1,1 refer to full screen and split 
screen. Normally, in a graphics mode, 
the bottom lines of the screen are reser- 
ved for text. By adding 16 to the mode, 
this text window can be converted to 
graphics use. Thus, GRAPHICS 2-16, 
or GRAPHICS 18, selects mode 2 
without a text window. In a graphics 
mode, PRINT prints to the text window, 
while PRINT#6, prints to the graphics 
area. 

The Atari has a 'palette' of 16 colours, 
these being known as hues. The hues are 
numbered from O to 15: 

O grey 8 blue 
1 gold 9 light-blue 
2 orange 10 turquoise 


Split screen 


Not available 


microcomputers. 


red-orange 
pink 

purple 
purple-blue 
blue 


green-blue 
green 
yellow-green 
orange-green 
light orange 


Colour register 


A maximum of five colours may be dis- 
played:at any one time, and this only in 
modes 1 and 2. Therefore, Atari gives us 
a ‘working palette’ of five colours from 


Colours ВАМ required 


993 
513 
261 
273 
537 
1017 
2025 
3945 
7900 


20x20 
20x10 
40x20 
80x40 
80x40 
160x80 
160x90 
320x160 
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which-to choose; these are known as the 
colour registers. The colour register 
defaults are shown in Fig 2. 

To select one of these colours, the 
COLOUR statement is used. Thus 
COLOUR O will select orange as the 
current foreground colour. Colour set- 
tings apply only to graphics modes. 

The default colour registers can be 
reset using the SETCOLOUR statement. 
SETCOLOUR takes the format: SET- 
COLOUR colour register to be reset, hue 
colour number and intensity. The inten- 
sity is an even number between O and 
14: the higher the number the brighter 
the colour, so SETCOLOUR 1,4,5 sets 
colour register 1 to a moderately bright 


Default 
hue 
number 


2 Orange 
12 Green 

9 Dark blue 

4 Pink-red 
0 Black 


Physical 
colour 


Colour 
register 


Fig 2. Colour register defaults 


(5) and pink (4) from its default of bright 
green (1). Very bright colours (12 and 
14) appear almost pure white. 

All characters on the Atari are printed 
in upper case by default. The statement 
POKE 756,226 switches to lower case; 
POKE 756,224 goes back to upper 
case. 

Once the business of selecting 
graphics modes and colours has been 
sorted out, there are then seven graphics 
statements supported: DRAWTO, PLOT, 
LOCATE, POSITION, PUT, GET, X10. 

DRAWTO xy draws a line in the 
current foreground colour from the last 
point visited to the specified coordinate. 
(0,0) is at the top left of the screen. 

PLOT x,y plots a single point in the 
current foreground colour at the 
specified coordinate. 

LOCATE x y,var is similar to the Micro- 
soft Basic POINT statement: it returns 
the colour of the specified coordinate. In 
the text modes, it returns а number 
between O and 255 indicating the ASCII 
code of the character plotted there, and 
places it into the specified variable. 

POSITION х,у positions the graphics 
cursor at the specified coordinate 
without affecting the display, 

PUT #6,z places the СНВ$ of the 
specified ASCII code (z) at the current 
graphics cursor position in modes O 
through 2. In the graphics modes (3-8), 
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it plots the colour register (z) at the 
current graphics cursor position. 

GET #6, var returns the ASCII code 
(text modes) or colour register (graphics 
modes) of the specified coordinate, plac- 
ing it into the specified variable. 

Note that PUT# and СЕТ state- 
ments only refer to the screen where the 
specified stream is 6; other values refer 
to other devices. 

X10 18,%6,0,0,76:7 is a specialised 
use of the X10 (general-purpose прим 
output statement). It is used to paint a 
predefined area with a predefined colour. 
To use the statement, the bottom right- 
hand corner of the area to be filled is 
PLOTted. Next, a DRAWTO the top right- 
hand corner is executed. Thirdly, the cur- 
sor is POSITIONed at the bottom left- 
hand corner, and address 765 is POKEd 
with the colour register of the desired 
colour. Finally, the X10 18,#6,0,0,"S:"§ 
is executed. 

How is the text colour set in modes O 
through 2? Why this can't be something 
as straightforward as COLOUR x, | don't 
know. The method of achieving this 
modest task is very strange and absurdly 
complex,. involving referral to two 
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parameters which, for want of anythin 
more original, we'll call a,b,c and d. 

Parameter a specifies the voice (chan. 
nel) іп the range 0-3; b is the pitch (0. 
255); c the distortion (0-14, 10 giving a 
pure note, any other channel being 
filtered through one of the 13 fixed 
envelopes); d is the volume, from 1 
(barely audible) to 15 (audible). 

Middle C is pitch 121, each semi-tone 
is either 6 or 7 steps. 


separate tables and not a little arithmetic. 
It involves setting SETCOLOUR to some 
unlikely-looking value, but my advice is 
just choose a text colour which looks pretty 
on the machine you're converting to. 


Sound 
Sound is handled with a statement called 
(wait for it) SOUND. SOUND has four 
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Sinclair ZX81 


The ZX81 produces black graphics on а 
white background. The graphics resolu- 
tion is 64 x 44, the origin (0,0) being the 
bottom left-hand corner of the screen. 
Two graphics statements are supported: 
PLOT and UNPLOT. 

PLOT xy switches on (ie lights up) 
coordinate (x,y). UNPLOT x,y switches 
off the specified coordinate. Drawing 
lines is achieved using FOR-NEXT 
loops, thus: 

100 FOR Х-0 TO 63 

110 PLOT XO 

120 PLOT X,43 

130 NEXT X 

140 FOR Y=0 TO 43 

150 PLOT O,Y 

160 PLOT 63,Y 

170 NEXT Y 

would draw a box around the edge of 
the screen. 

The ZX81 also supports a PRINT AT 
function (PRINT G, on most machines). 
The PRINT AT screen comprises a 32 x 
22 grid with the origin — justto confuse 
— as the top left-hand corner. To print 
‘HELLO’ in the middle of the screen, you 
would enter PRINT AT 11,13;"HELLO". 

The ZX81 reserves the bottom two 
lines of the screen for input prompts, 
error messages, and so on; these lines 
are not accessible when programming in 
Basic, and so аге not assigned 
coordinates. 

Sound is not supported. 


Sinclair Spectrum 


Graphics: 
The Spectrum is available with either 
16k or 48k RAM, but there are no other 
differences between the two models. 
The Spectrum supports eight fore- 
ground and eight background colours. 
The single graphics resolution is 256 x 
176, but there are limitations when 
using colour. The graphics statements 
are as follows: 
PLOT — PLOT х,у lights coordinate (x y) 
in the current foreground colour. 
DRAW — DRAW xy Га) draws a line 
from the last coordinate visited (using 


- Sinclair 


Surya continues his look at graphics and sound on each of the 
machines included on the APC Basic Converter Chart (see 
November issue). This month, the Sinclair ZX81 and Spectrum. 


-the left. As a rough guide when reading 


PLOT, DRAW or CIRCLE) to a point x 
coordinates to the right and y co- 
ordinates up. The values of x and y may 
be either positive or negative, and may be 
expressions and/or variables as well as 
literal numbers. 

The value 'a' is optional, and instructs 
the computer to draw a curved, rather 
than straight, line. This value specifies 
the number of radians the line must turn 
through as it draws; if a is positive, the 
line will curve to the right, if negative to 


listings, if a — 2*pi, a complete circle will 
be drawn, a=pi then a semi-circle is 
drawn, etc. 
CIRCLE — The Spectrum has a built-in 
function to draw circles. This is con- 
siderably faster than using DRAW, but 
less accurate, which is why you find the 
DRAW method used in some listings. To 
draw а circle, you state CIRCLE xyr 
where (xy) are the coordinates of the 
centre of the circle and r is the radius. 
CIRCLE also appears to contain a slight 
bug. After drawing the circle, the state- 
ment leaves the graphics cursor in — as 
the manual puts it — 'a rather indeter- 
minate place'. For this reason, you will 
normally find a  PLOT statement 
immediately following a CIRCLE. This is 
simply to put the graphics cursor in a 
known position rather than being a part 
of the display routine as such. 
PAPER & INK — A wonderfully sensible 
idea; PAPER being used to set the back- 
gound colour and INK the foreground 
colour.The format is the same in both 
cases, PAPER (or INK) z where z is the 
colour as defined below: 


O — black 

1 — blue 

2 — red | 
3 — magenta | 
4 — green 

5 — cyan 

6 — yellow 

7 — white 


BRIGHT — Sets the brightness of the 
colours. BRIGHT O being normal, 
BRIGHT 1 being extra bright. 

FLASH — Flashes foreground colour. | 
1 = on, O = off. 

INVERSE — Reverses INK and PAPER. 
1 = on, О = off. 


OVER — Allows overprinting. Normally, 
if you print (say) a letter 'X' and then an 
addition sign at the same position, the 
second character will obliterate the first. 
OVER allows the old character to remain 
visible, So that the above example would 
produce something like an asterisk (*). 

— on, O — off. Theonly way to recreate 
this on other machines is to work out 
what the combined character would look 
like and see if your character set sup- 
ports something similar. If your machine 
has the facility to support user-definable 
characters, then this is, of course, 
another way around the problem. 
BORDER — The Spectrum has a border 
around the screen which the user cannot 
access for screen displays using Basic, 
but its colour can be reset using 
BORDER z, where z is as for PAPER and 
INK. BORDER has no equivalent on most 
machines and can be safely ignored 
when converting from a Spectrum 
listing. 

Note that colour 8 can be used with 
PAPER, INK, BRIGHT and FLASH to set 
the respective attributes to ‘transparent’. 
Colour 9 can be used with PAPER and 
INK to select automatically maximum 
contrast, thus each is set to white if the 
other is a dark colour and black if the 
other is alight colour. This would have to 
be done 'manually' on most machines. 

When describing the resolution of the 
graphics screen, | mentioned a lirnitation 
when using colour. Plotting a particular 
attribute (colour, inverse, flashing, and 
so on) affects the whole of the character 
position, rather than just the pixel in 
question. Thus, youcannothave a steady 
blue line right next to a flashing green 
one, though you can have two lines 
sporting identical attributes running 
alongside each other. 

The final graphics-related statement 
supported on the Spectrum is 
SCREENS. This is a very useful feature 
which allows you to save the contents of 
the screen memory on tape. This can 
subsequently be loaded from tape in 
order to recreate the display. The format 
is SAVE "filename" SCREENS to save, 
and LOAD "filename" SCREENS to load. 
This is most commonly used to load title 
screens for display while the main pro- 
gram is loaded. 


Sound: 
Sound on the Spectrum is controlled 
| using the ВЕЕР statement, the 


onomatopeiac word BEEP being a pretty 
accurate description of the sound quality. 
The format is SOUND duration, pitch. 

Duration is in seconds and pitch is in 
semitones: O is middle C, negati ve num- 
bers are lower, positive numbers higher. 
Each octave, of course, spans 1 2 semi- 
tones. 
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‘BBC 


This month Surya turns his attention to the BBC in his continuing series on graphics and sound 
on each of the machines included in the APC Basic Converter Chart (see November issue). 
Find out how to convert BBC listings to work on your micro. 


The complexity of the BBC's graphics 
often make its listings all but incom- 
prehensible to owners of other 
machines. But there are a lot of well- 
written BBC listings around which the 
aforementioned owners would no doubt 
like to get up and running on their’ own 
machines. For this reason, | think it 
worthwhile to go into the subject in a fair 
amount of detail. 

The BBC comes in one of two models: 
the ‘A’ and ‘В’. The only difference 
between the two as far as graphics is 
concerned is that the model B offers 
eight screen resolutions, or ‘modes’, 
while the A offers only four. 

The BBC has very powerful graphics- 
handling capabilities. This is usefulif you 
own one, but makes life difficult for any- 
one trying to convert BBC graphics 
routines. Let's start with the business of 
modes. The model B can support eight 
different screen resolutions, while the 
model А supports modes 4, 5, 6 and 7 
only. A brief summary of the modes 
follows: 

О — 80х32 text, 640x256 graphics, 
2 colours 
40x32 text, 320x256 graphics, 
4 colours 
20x32 text, 160x256 graphics, 
16 colours 
80x25 text, 2 colours, text only 
40x32 text, 320x256 graphics, 
2 colours 
20x32 text, 160x256 graphics, 
4 colours 
40x25 text, 2 colours, text only 
40x25 text, teletext mode (see 
later) 
Mode x, where x is in the range O to 7, 
clears the screen and places you into the 
appropriate mode. This can be done as 
either a command or statement. 

Once in a given mode, the graphics 
statements are as follows: 
CLG —clears the 

screen 
—clears the text screen 
— move the graphics cursor 

to point х,у 


graphics 


CLS 
MOVE х,у 


—draw a line from the 
current cursor position to 
point x,y in the current 
foreground colour 

—set the colour to be used 
for all subsequent print- 
ing of text, where x is an 
integer in range O to 15 
to set foreground colour, 
128 to 143 to set back- 
ground colour. Note that 
the colour values are 
dependent upon the 
current mode: colour 2, 
forexample, is yellowina 
four-colour mode but 
green in mode 2 (the 16- 
colour mode). For an 
explanation of the colour 
codes, see later. 

—sets the colour to be used 
for ` а! subsequent 
graphics operations, 
where x is the colour and 
wis the logical operation 
defined as: 

use the specified colour 

OR the specified colour with any 
colour already present 

AND the specified colour with any 
colour already present 

XOR (eXclusive OR) the specified 
colour with that already present 
invert (that is, change to the logi- 
cal opposite) the colour already 
present 

Note that x is as for COLOUR. 

PLOT — more powerful version of 
draw: see later for 
further details 

To set the text or graphics colour, 
numbered codes are used. These codes, 
as has been mentioned, are dependent 
upon the current mode. These codes can 
be reset (see VDU later — virtually every- 
thing you say about BBC graphics needs 
to be qualified in some way), but default 
values are: 

Two-colour modes (0,3,4 and 6): 

Black —O foreground, 128 

background 


DRAW x.y 


COLOUR x 


GCOL w,x 


White —1 foreground, 129 
background 
Four-colour modes (1 and 5): 
Black —O foreground, 
background 
—1 foreground, 
background 
—2 foreground, 
background 
—3 foreground, 
background 
Sixteen-colour mode (2): 

Black —O foreground, 
background 
—1 foreground, 
` background 
—2 foreground, 
background 
—3 foreground, 
background 
—4 foreground, 
background 
—5 foreground, 
background 
—6 foreground, 
background 
—7 foreground, 
background 
Flashing colours: 

Black/White 


128 


Red 129 


Yellow 130 


White 131 


128 


Red 129 


Green 130 


Yellow 131 


Blue 132 


Magenta 133 


Cyan 134 


White 135 


—8 foreground, 136 
background 
—9 foreground, 
background 
—10 foreground, 138 
background 

—11 foreground, 139 
background 

—12 foreground, 140 
background 

Magenta/green —13 foreground, 141 
background 

—14 foreground, 142 
background 

—15 foreground, 143 
background 


Red/cyan 137 
Green/magenta 
Yellow/blue 


Blue/yellow 


Cyan/red 
White/black 


The last four colours incidentally, are 
not a typesetting error but merely one of 
the BBC's little idiosyncrasies. 

To recap, first of alla mode is selected. 
This determines the resolution and the 
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number of colours available. Then the 

screen may be cleared (using CLG and 

CLS), and the text colour (COLOUR x) 

and graphics colour (GCOLx) set. The 

graphics statements available аге 

MOVE, DRAW and PLOT. 

PLOT: 

Whichever mode has been selected, the 

screen is addressed as a virtual screen 

1280 x 1024 pixels. The origin (0,0) is 

at the bottom left-hand corner of the 

screen though this — like most things on 
the BBC — can be repositioned if 

desired. As desribed earlier, DRAW х,у 

draws a line in the current foreground 

colour to the specified coordinates. 

MOVE x,y moves to the specified coor- 

dinates without drawing (OK — for the 

purists — it draws a line in the current 
background colour (s)). PLOT is a more 
sophisticated form of DRAW and uses 
three parameters which we'll call k, x and 

y since the manual does. 

Parameters x and y are straight- 
forward, these being the coordinates 
used. The parameter k determines the 
manner in which the line is plotted as 
follows: 

O — move (ie, draw in background 
colour (s)) relative to present 
position 
draw (in foreground colour) rela- 
tive to present position 
as 1, above, but in 
inverse colour 
as 1, above, but in background 
colour. This differs from O in that 
the background colour will over- 
write any foreground colour 
present 
move to position (х,у) 
draw line to position (x,y) in 
current foreground colour 
as 5, but in logical 
colour 
as 6, but in current background 
colour 

Note that O-3 plot x points in the x-axis 

and y points in the y-axis; that is, the plot 

is relative. 4-7 move to the screen co- 
ordinate (xy); that is, the plot is 
absolute. 

Higher values of k may be used to 
achieve other effects. The ones which 
are currently implemented are: 

8-15 —  asO-7 but with the last point 
in the line omitted 
as O-7 but using a dotted 
line 
as O-7 but using a dotted 
line and with the last point in 
the line omitted 
as O-7 but plotting only the 
last point of the line 
as O-7 but use the last two 


logical 


inverse 


16-23 — 
24-31 — 


64-71 — 
80-87 — 
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points visited to plot and fill a 
solid triangle 

You can see from the above that PLOT 
4 isthe same as MOVE and PLOT 5 is the 
same as DRAW. 

There are also 33 VDU codes’, a num- 
ber of which are related to graphics. 
These appear in listings as VDUx, where 
the most commonly used values of x 
are: 

5 — join text and graphics cursors to 
enable text and graphics to be 
printed at the present graphics 
cursor position. This is disabled 
using VDU 4 
a very common VDU code used 
to redefine logical! colours. For 
example, colour 1 is normally 
white in two-colour modes, but 
the programmer may wish to 
change it to a different colour. 
Thus VDU 19 allows access to 
colours not normally available in 
a given mode. The statement 
takes the form VDU 19, logical 
colour code, new colour code, 
0,00 OR VDU 19, logical colour 
code, new colour code;O;. Thus 
in mode O, VDU 19,1,3;0; 
would redefine white to appear 
as yellow. VDU 20 resets all 
colour codes to their default 
values. 
define a user-defined character. 
It uses the same binary-based 
system as most other machines, 
the form being VDU 23, ASCII 
code of the character to be 
defined, followed by the eight 
codes separated by commas. 
define a graphics window, that 
is an area of the screen outside 
of which no graphics may 
appear. The form taken is VDU 
24,lower x coordinate;lower y 
coordinate;upper x coor- 
dinate;upper y coordinate;. Thus 
VDU 24,100;200;300;400; 
would define a graphics window 
with coordinate (100,200) as 
the bottom left-hand corner and 
(300,400) as the top right-hand 
corner. This is reset by VDU 
26. 
define a text window. This 
works as for VDU 24, only com- 
mas аге used instead of 
semi-colons and no trailing 
punctuation mark is required. 
The text screen is 39x31 
characters by default. VDU 26 
resets default. 


And that covers the graphics handling. 
Now for sound. 


2 of 2, 


Sound 


The BBC has two sound statements, 
SOUND and ENVELOPE. The SOUND 
statement is relatively straightforward, 
ENVELOPE is so specific to the BBC that 
it would be of little use to spend the not 
inconsiderable amount of time 
necessary to explain it. Even if you could 
work out roughly what sort of sound was 
being created, you would have no way of 
effectively simulating it on another 
machine. What ENVELOPE does is to 
define the shape of the sound generated 
by the SOUND statement, so you may 
not be able to recreate the sound 
faithfully. 
The format is SOUND channel, 
volume, pitch, duration where: 
* Channel is in the range O-3, channel O 
producing ‘white noise’ and used to 
create special effects. 
ж Volume isin the range O 10-15 with O 
silent (useful) and -15 the loudest 
* Pitch ranges from O to 255, covering 
some five-and-a-bit octaves. 
* Duration 1$ in the range-1 to 254. -1 
means ‘continue until stopped’ (either by 
pressing escape or by sending another 
note to the same channel), positive | 
values are in twentieths of a second. 
Sending two or more notes to the 

same channel at the same time produces 
a chord. Where channel O is used, the 
type of white noise produced depends 
upon pitch, the BBC manual summaris- 
ing the effects as follows: 
О — high-frequency periodic noise 
1 — medium-frequency periodic noise 
2 — low-frequency periodic noise 
3 — periodic noise, frequency deter- 

mined Бу pitch setting о! 

channel 1 

high-frequency white noise 

medium-frequency white noise 

low-frequency white noise 

white noise, frequency deter- 

mined Бу pitch setting of 

channel 1 
And that's the BBC micro! You do need 
to remember that without the equivalent 
ofthe ENVELOPE statement, you will not 
be able to achieve the kind of complex 
sound effects used in some BBC pro- 
grams. Sound effects are generally the 
frills rather than the meat of a program, 
and while good sound effects can very 
much improve a program, they can 
usually be simplified without losing the 
effectiveness of a program. 


(Сап be done directly бу РОКЕ 30945,175.) 
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HERE is a simple way to add automatic line 
numbering and trace functions to VZ200 
BASIC. Automatic line numbering should 
be self-explanatory. However. the trace 
function may need some explanation. When 
attempting to debug a BASIC program. it is 
sometimes useful to see exactly what 
sequence of instructions the computer is 
interpreting. This is the function of the 
trace command. It prints out on the vidco 
the sequence of line numbers the computer 
(the interpreter) is stepping through when 
executing a program. This allows you to 
make sure the program is doing what vou 
intended it to do. (Especially useful in the 
case of conditional СОТО or GOSUB 5). 

As adding the trace functions (TRON 
and TROFF) is the simplest task. I will deal 
with that first. 


Before running your program. type in 


POKE 31003.175 from the immediate mode 
(no line numbers That's it? This is eguiya- 
lent to typing in 'TRON'. Now when vou 
run your program. each time a new linc is 
selected to be interpreted (or the same line 
number repeated) it will be printed on the 
video. To disable this function just type 
POKE 31003.0 from the command level. 
This simulates using the ‘TROFF 
command. 

A drawback with this method is that you 
might only want to debug a small section of 
the program and so have to contend with 
sorting out that small section from the rest 
of the displayed line numbers. This can be 
simply overcome by adding POKE 
31003,175 into your program with a line 
number which places it in the program just 
before where you want to start the trace. 
Then add POKE 31003,0 with a line num- 
ber which places it where you want the trace 
to stop. 


Auto 

Now to deal with the slightly more complex 
‘AUTO’ function. This function. when 
enabled, saves you the trouble of typing 
sequential line numbers when entering a 
program. This very useful function will 
automatically display the next line number 
when vou hit RETURN ' at the end of a line 
of program. 

To do this you need to supply the starting 
line number and the increment between 
lines. Next you nced to set a flag which tells 
the BASIC that the "AUTO' function is 
enabled. (This must be done last or vou will 
go into the "AUTO' mode before you have 
supplied the starting line and increment.) 

The starting line number must be POKEd 
into locations 30946 and 30947. and the line 
increment POKEd into locations 30948 and 
30949. These have to be in two-byte form 
with the least significant bit (LSB) going 


This article details how you can simply add automatic line 
numbering and TRON and TROFF trace functions to the Dick 


Smith VZ200 colour computer. 


Steve Olney 


into the first location of each pair. and the 
most significant bit (MSB) going into the 
second. 

For the line increment this is no problem 
as long as you keep the increment below 
255. (Most increments would normally be 
less than 100). Just POKE 30948, ‘incre- 
ment and then POKE 30949,0 where 
‘increment is less than, or equal to 255. (1 
usually use 10 or 20 as the increment.) 

Of course, the line number would most 


likely be above 255, so you must convert . 


your starting line number into two bytes 
where: Ж Ез - 
LINE NO. = (МВ * 256) + LSB 

and where we: ` 

РОКЕ 30946, LSB and РОКЕ 30947. MSB 


_ Example: For a starting line number of 2000 


MSB - INT(2000/256) - 7 

LSB = LINE NO.—(MSB*256) = 208 
So we must: 

POKE 30946, 208 

POKE 30947, 7 

For those not content with trouble of cal- 
culating this every time the " AUTO' mode 
is entered. I have written a short program to 
do this as well as to enable the ‘AUTO’ 
function itself. (Can be donc directly by 
POKE 30934.175.) Use line numbers which 
will put it well out of the way of any main 
program vou are entering. 

0 CLS 

10 INPUT"STARTING LINE NO. ';S 

20 INPUT"INCREMENT 70 

30 MS=INT(S/256): 15-5-М5”256 

40 POKE 30946.LS: POKE 30947.MS 

50 МІ-ІМТ(1/256): LI=I-—M1*256 

60 POKE 30948.11: POKE 30949.MI 

70 POKE 30945.175 

80 END 

For convenience, type this small program 
in starting from line number 0. This will 
enable quick access by just typing "КОМ? 
and then ‘RETURN’. However to run your 
programı, you will now need to type. "RUN 
хххх;. Where ^xxxx' is the first line number 
of vour program. 

To exit from the "AUTO' mode. type 
‘CTRL’ and "BREAK simultaneously 
exactly the same way you exit or interrupt а 
BASIC program. Incidentally. BASIC will 
automatically exit from the " AUTO' mode 
when the new line number would have been 
greater than 05529. (The maximum line 
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number allowed in this BASIC.) 

A useful feature of this `AUTO` function 
is that. if you specify line numbers which 
include previously entered lines. then not 
only is the line number displayed but also 
the statements previously entered. 

The cursor is conveniently positioned at 
the end of the line ready for any additions to 
that line. This can be used as a convenient 
editing feature. For example. let us suppose 
you have entered your program and now 
wish to go through and make corrections. 
Enter the first line number of the program 
to be corrected and the appropriate line 
increment for that program. You can now 
single step through your listing and make 
corrections as you wish! Unfortunately. 
there is no simple way of decrementing the 
line number. (other than manually POKE- 
ing in location 30946). 


Why So Simple? 

How was I able to add these two functions 
so easily? Well. on close scrutiny of the 
VZ200 BASIC in ROM. I discovered that it 
was fundamentally similar to Level H TRS- 
80 BASIC. By finding the equivalent contro] 
arcas in RAM for the VZ200 BASIC, and by 
experimentation. I was able to get the func- 
tions working. 

Apparently. the machine code for the 
execution of the “AUTO, ‘TRON’ and 
`TROFF` functions is still present in the 
VZ200 BASIC ROM, but the interpreter 
has been altered so as not to recognise the 
commands as valid in an input text string. 

Why the machine code would he present 
in the BASIC ROM but not enabled is a bit 
strange. Perhaps some functions were 
dropped in order to implement all functions 
provided on the multi-function keys. 

A word of warning! Like all situations 
where you are patching software (especially 
when written by someone else). beware of 
yet-undiscovered gremlins. I take no 
responsibility for any havoc wreaked by 
same! 

A more elegant and flexible approach 
would be to intercept the text interpreter 
and make it recognise the 'AUTO and 
trace commands from the immediate com- 
mand level. and perhaps add à Jine re- 
numbering command. But that’s another 
story! e 
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X More functions for the VZ200, March '84: There is an error іп the second 
column, just above the listing of the short BASIC program. It should Бе... 
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Some 
more 
routines 


Ву. Philip Middlemiss 

In the Dick Smith VZ200 there аге а 
number of new routines which can be 
used by the use of simple BASIC 
commands. These routines are: 


.. te Detint .x (defines variables 
listed as integers). : 

.2: Defdbl x (defines variables 
listed as double precision). 

3: Auto: (auto line numbers). 


4: Print Mem: (prints the memory 
available). 

5: On x GOTO line1, line2, etc. 

6: Delete (deletes a block of 


BASIC program). 

All of these routines must be used with 
a lie number, and under most 
circumstances sbould be typed before 
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any other program lines are typed in. 

If a program is already in the computer 
and-you wartt to add one of the above 
routines then put the line right at the 
beginning of the program with a GOSUB 
or GOTO routine in the line where you 


want the routine to be used. (See 
example A). 
When the routine is put into the 


computer you must use a line number 
lower than any existing line number 
already in the computer. 

When you LIST your program you will 
see the line number only, with nothing 
after it, so editing this line is not 
possible. The reason that the line is blank 
is that in the VZ200 ROM there are no 
“BASIC words'for these routines. 

Hera are the ‘instructions for each 
routine. Don't type that Which is 
enclosed in( ). 

(DEFINT X) (X can be А,В,С, etc ОГАЕ G 
etc). 

10 PRINT A,B 
POKE 31469,153 
Then type rest óf program. 


- (DEFDBL X) 


10 PRINT А,В,С 
POKE 31469,155: 

Then rest of program. 

When these variables are found in your 
program-they will automatically be used 
as integers. or double precision as 
programmed.) 

(AUTO) (to generate 
numbers 10-20-30-40, etc). 
1 PRINT - 

POKE 31469,183 
RUN КП 

(То generate AUTO line numbers 
starting at, say, 500 with steps of 20). 
1 PRINT 500,20: 

РОКЕ 31469, 183 
RUN 
(The first number i is the start number, 


AUTO line 


the second is the step between 
numbers). 

When AUTO is finished with remove. 
line 1. 
(PRINT MEM) 


1OPRINT X L 

POKE 31470,200. 

RUN 

(Also see example А.). 
(ON x GOTO 
100,200,300) . 

ЛО POKE 31469,161 


*(OR 60508) 


КОЗАКА BLA СИ ММ ИЛИЯ ЧЕТА РИ uq ect МИЛЛА" 


(For use see example В.) 

(DELETE) 

(After a program has been loaded and 
is working you sometimes need to 
remove a block of program that is no 
longer needed or needs to be replaced. ) 
1 PRINT 150-300 
POKE 31469,182 


- RUN 


“(Іп this example lines 150 to 300 will 
be deleted.) 


Example A 

When the routiné is required in the 
middle of a program use as this example. 
2 PRINT X:RETURN 
POKE 31470,200 
1 GOTO 10 


‚ 10 (rest of program) 


When memory available is required in 
the program use: Line no GOSUB 2. 


Example B - 

Inthe ON X GOTO routine, when X =1 
the program will branch to the first line 
No., and if X =2 then the program will 
branch to the second line No., etc. Here 
is how it can be used. 

70 PRINT X GOTO 100,200,300,400 
POKE 31469,161 

10INPUT “ENTER TWO NUMBERS'',a,b 
20PRINT'"ENTER 1 TO ADD" 


30PRINT*' 2 ТО SUBTRACT” 
40PRINT*' 3 TO MULTIPLY” 
5OPRINT'' 4 TO DIVIDE” 
60INPUT X 


80 (continue with rest of program) 

Other words decide where this line is 
to be, give it the correct line number. But 
type ії in first followed immediately by its 
POKE statement. You could also use it as 
example A. You could do it this way: 
Type IN PROGRAM В, replace line 70 with 
GOTO 2 and then add: 

2 PRINT X GOTO 100,200,300,400 
POKE 31469,161 
1 GOTO 10 

If two or more of these routines are 
required type as below: 
5 PRINT A,B,C 
POKE 31469,153 


- 4 PRINT Х,Ү,2 


POKE 31469,155 

This will make A,B,C variables integers 
and X,Y,Z variables double precision. 
These lines can be typed in after the 
prograrh .is loaded as long ‘as line 


-numbers lower than five have not been 


used. 


V-ZED — 
THREE NEW FUNCTIONS 


This Б а гөй feature to assist 
VZ 200 users to come to understand 
more about their computers and to learn 
a few tricks which are not necessarily 


way back in the mid 70's and which pro- 
bably supplies over 8096 of all BASIC 
interpreters іп use today. Not surprtsing- 
ly. when a new computer such as the 
VZ comes along. MICROSOFT takes its 
standayd BASIC Interpreter and modifies 
It to suit the new hardware 
ticular features which the manufacturer 
would like included. From the user's 
же of view there are both advantages 
and dissdvamtages to this approach. 
The main disadvantage is that the 
resulting code can become very untidy 
with patches on patches right 


throughout the ROM. The outcome 
often being inefficient use of space and 
slower execution. On the positive side 
however, there are likely to be routines 
still left in from other interpreters which 
are not Intended to be available in the 
VZ but, with a littie fiddling can be us- 
ed. To the average computer user, the 
thrill of making your computer do 
something which the manufacturer 
never intended, is worth any of the 
disadvantages. The purpose of this ar- 
ticle is to start you off with three hid- 
den functions. Once you start ex 
perimenting in this area you will no 
doubt find others. Please write in and 
let us know about them so that we may 
all share in them. 

The MICROSOFT BASIC inter- 
preter as implemented іп the Tandy 
TRS-80 Model 1 occupied 12 Kbytes 
of ROM. Although we do not know for 


Micron to 


Sure, й Is Жем that this Implementation 
started a new family of BASIC inter- 
preters of which the VZ's Is a derivative. 
Certainly there seems to be no surplus 


VZ has a number of additional features 
over and above those avaliable іп the 
мд іп particular, the support for 
higher screen resolution, colour and full 
screen editing obviously requires extra 
code. Even though this interpreter now 
occuples 16K of ROM h became 
to leave out some of the 


Bo e these things remain locked 
in the ROM and can be access- 
th 


ed with a bit of judicious POKEing. 


AUTO LINE NUMBERING 


The Interpreter contains an 
AUTO line numbering routine which 
when activated, automatically prints the 
next line number on the screen to 
speed up the entry of BASIC programs. 


Ing 

line 100 with an increment of 10 so that 
the second line would be 110 the third 
120 etc. The AUTO routine operates 
every time you press the RETURN key 
from the COMMAND mode. It looks at 
address 30945. Н that address contains 
a zero then AUTO numbering Is off and 
the computer behaves normally. 
However, If that value is 1, the AUTO 
routine looks at addresses 30946 and 
30947 to find the value of the starting 
line number then at addresses 30948 
and 30949 for the increment between 
line numbers. The next line number is 
then eutomatically displayed on the 
screen. The only of the AUTO 
routines missing is the ability to 
recognise the AUTO сотталд Itself. 
However, if you POKE the appropriate 
values into the memory addresses 
above. you will be able to use this 
facility. 

To set the starting line number. 
POKE the decimal equivalent of its 
Least Significant Byte (LSB) into ad- 
dress 30946 and the decimal equivalent 
of ts Most Significant Byte (MSB) into 
30947. Similarty, to set the line incre- 
ment, POKE its LSB into 30948 and its 
MSB into 30949. It Is likely that this is 
double Dutch to relatively new users of 


PROGRAM LISTINO 1 


FEM SET STRFTIHG LINE NO 
INPI 
FOE 30346,4 
РОКЕ 39947. INT. ZL^256» 
РЕМ ЕТ THE ІНСРЕМЕНТ 


DIXIE 
бойла 
019945] 
£ 0D315 
64354 
салп 
£ 0076 
455516) 
ӘР іб 
Бї 


FOE 
POLE 30943, INTO IN ZS 2 
КЕМ SWITCH ON THE RUTO 
FOVE2G346, 1 
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the VZ so we have Bustrated the techni- 
ques with the program below. If you 
wish to know more about the subject 
of POKEing etc. you will find a good ar- 
ticle in Volume 4, Issue 4/5. 


We suggest you enter this 
routine, make Sure It works satisfactori- 
ly then CSAVE It under the narne AUTO 
or similar. You can then load h in 
whenever you are Ке сести program 

nt. We have used high line 
numbers to keep It out of the way of 
your own programs. To start И operating. 
type RUN 60,000. Incidentally, you ter- 
minate AUTO line numbering by press- 
ing the BREAK kay. 


TURNING OFF THE BEEPING 
KEYBOARD 


Now that you have AUTO line 
numbering. you will probably want to sit 
up all night entering programs. Only 
trouble Is, the beeping of the keys 15 
likely to keep the rest of the family 
awake. 


No problem: 
ee 30779, O disables the key beep 


POKE 30779, 1 tums It on again. 

You may enter this straight from 
the keyboard or include It as a line in 
your program. 

Incidentally, this memory ad- 
dress appears to carry out some other 
functions, depending on the bit that Б 


. 4, 6, 8 etc. turn It off, 1, 

‘etc. tum It on. Bits 1 and 2 

о specia effect but bit З clears 
screen and positions the cursor at 
he bottom left hand corner. This bit 


Could tell bits 5, 6 and 7 had no effect. 
FREE SPACE 


Probably the most useful POKE 


memory you 
left to cram in those last few lines 
before being told by the machine that 


30863,39: 
PRINT USR(X) ‘FREE MEMORY 
OR 
PRINT USR(X$) ‘FREE STRING 
SPACE 


FOF THE HUT ROUTINE 


"STARTING (ІНЕ NUMBER’: SL 
SL-256XINT'r 512256); 


BETWEEN LINE HJHEEFS 


INPUT" INCREMENT ЕЕТЫЕЕН LINE NOZ": IN 
20342. IN-256# INTC IN“ 256 77 


LINE NUMBERING ROUTIKE 


V-ZED 


Last Issue we explained how to 
obtain three new functions from the 
VZ20O, including a POKE which turns 
off the beeping keyboard. Reader Ken 
Hicks became concerned that this lat- 
ter recommendation might actually 
cause some damage to the innards of 
the computer and possibly to the 
speaker itself, he writes: 

І read with some interest your 
piece on the new functions for the 
V-ZED. 

It was on the strength of your 
supporting this machine that | bought 
one for my young son. To date І have 
had no joy with the darn thing — it has 
twice been returned for service, and | 
have not yet received it or a 
replacement. 

I purchased а copy of the Tech- 
nical Reference Manual with the unit, so 
while waiting for the unit to turn up 
again, | have read the manual from cover 
to cover, which probably is not a bad 
idea, but which | almost certainly would 
not have done under normal circum- 
stances. This Manual gives full circuit 
diagrams and reveals the very much 
simplified address decoding. There is 
also some very useful information on 
the System pointers, memory mapping, 
and particularly the details of graphics. 

The addresses of a few routines 
in ROM are given, which will be familiar 
to ML programmers who use the old 
Microsoft ROM. For example, 28A7H 
and O1C9H are still message output and 
clear screen routines. 

‘Evidently the writer of your arti- 
cle has not studied his TR Manual, as 
it gives details of the function of an out- 
put latch which effectively occupies all 
locations from 6800 to 6FFF inclusive. 
This is a write-only latch which services 
the cassette output, speaker, and video 
display controller. This latch is copied 
at 783B (30779), and its bit allocation 
is: 

Bits O & 5 drive the speaker. 
They are normally toggled alterna- 
tively in a push-pull fashion to 
produce a tone. Holding one bit at 'O' 
would therefore hold the speaker di- 
aphragm ‘pushed’ while holding the 
other bit at 'O' would keep it ‘pulled’, 
with.an audible click as it went from 
one state to the other. 

Bits 1 & 2 generate the cas- 
sette output signal. Fiddling with 
these could corrupt a tape if the cas- 
sette were in the RECORD position! 

. Bit 3 controls the VDC dis- 

play mode. An 'O' here sets MODE 
(O), while а 4” causes the VDC to 
operate in MODE (1). This effect is 
via the video controller chip. 

Bit 4 controls the background 
colour. It it is 'O' then the background 
will be green, while if it is 1” the 
background will be orange if in 
MODE (О) and buff if in MODE (1). 
Thus, its effect depends on bit 3. 

The BEEP routine is at 3450H. 
Calling this address will produce a 


ВЕЕР, but some disassembly around 
this area would be necessary (or 
perhaps around the keyboard scanning 
area — from 2EF4H) to find out how to 
silence the BEEP It is possible that the 
brute force method suggested by your 
correspondent could damage the 
speaker or a chip by passing a current 
continuously, which is apparently what 
happens when 'O' is POKED іпіа 
30779. -1 don't want to disparage your 
correspondent, but this just could be 
one instance where it is possible to 
cause physical damage to a computer 
via the keyboard! 

Thank you Ken. There are two 
minor errors in your analysis of the sit- 
uation of which one is significant to this 
discussion. Firstly, to correct a point of 
fact, bit 5 of the output latch is always 
held high whilst bit O is toggled from 
high to low to produce sound from the 
speaker. Of far more significance than 
that, however, is the nature of the 
"Speaker '' itself. It is a piezo electric 
device. i.e. it consists of a crystalline 
substance with two metallised plates, 
one connected to bit 5 the other to bit 
O. When there is a voltage difference 
between these two plates, the crystal 
actually changes shape, thus displacing 
the air surrounding it causing a ‘‘Click’’ 
to be heard (if the differential voltage 
has been applied rapidly enough). The 
BEEP routine you mention at 3450H al- 
ternatively sets and resets bit O thus ap- 
plying a continually varying voltage 
across the crystal causing it to change 
shape rapidly and emit an audible tone. 
During this process very little energy is 
disippated since the piezo electric 
device appears electrically like a capa- 
citor being alternatively changed and 
discharged. This device will not be 
damaged by applying a constant poten- 
tial across it which is within its operat- 
ing range. Nor will any IC be called on 
to carry excessive currents. In short, 
the POKE's recommended will not 
cause any harm to the computer. 
Nevertheless, thank you for raising this 
interesting subject. We would welcome 
similar contributions from our other 
readers. 
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REM ЖЖЖ MEMORY PEEK XXX 
2 REM ЕПЕ We гий 

FEH EY Е.СНЕ5ОН 

БЕН %555%55%555%5%8545993 

CLS 

ШИН МЕМСЕТ-РЕЕК Ы 

РЕ: ТНТ "Wa s " ; 

ШӘ ШРКЕ55 <<5РаСР>2> LU PRINT НЕХ. NU "i TD SLOW CUN РЕІНТІНБ 
РКІНТ" ОЕ 8 

5 FP I HT” Шадан раан ананан НЕЕ ; 

QIC SS. с: 22. РОВ. МЕН ORE SOM 

РЕ ТНТ "ЕЕЕ ане ет сан ЕАИС ЕН Еа ыы; 

ІНРИТ"МЕМШЕТ LOCATION СЕСЕ =" %1 

(ВОР Hea... DEL -snonki СНЕ Os ie 

ЕНЕС=ЯТ0459 : HENTO > 

ЗОТ 

12+REScçcR1 ? 

sss STHEMGOT Ma 1 си 

Sele ое HZo:Cce-IHTCHZ-EZ 2: 2=69 


Р ГР а m uuu - mago 


Qo à m Г — m 


dase:Ez-D2725&e:Fz-EZ-IHTKEZ»:G62IHTC EZ-FZ 3: 2=6: 


Tua 


ка — — на — Ic nmm 7. ү du Na fe PN 


л FüRY-1BTOIS 

йй IFG-YTHEHESZCHK$CZ2»:GUTO13Z0 

1й 2=24+1:NEXT 

зӣ H-FZX256:I1-H/16:JeI- INTC I>: Ke INTO I-43: Z=65 E Mona ор VZED 

Ча FüRY-zIGTUIS 4 te Pat 
= р ат If you аге interested іп finding 
а = ss. ыа /S-CHRS« 2): 50Т0158 out what your У2200 stores т its 
EE der memory enter this program and have a 
gu L= J16: M= =L-IHTEL о: F=IHTEL-M о: Z look. id к. 

Эй FUFY=18T015 The program will display оп the 


ТЕР a e SCHR BE 2 3 ian TO ad screen the information you need to 
= =2+1 E А алы ue know to run it and asks for a start ad- 
IFCZ?9THEHzZACELZEZSH dress in decimal. 


Ba. 2 3$; :GüTOeed After going to the start location 

p ША T E it will print the DECIMAL address, Z80 

Ш as a e s address, CHR at that address and ASCII 
Я ! „е Фф; I] Ue соае. 

БЕШИ. sss Тһе program runs very quickly 

ТЕК >ЭТНЕМЗӘВЕ, SE 310 so to slow it down press the SPACE key. 


а. d БЕ. Pressing the SPACE key slows down 
IFF>3THEHZZBELSE3246 the program and also Рода the НЕХ аа- 
РЕІНТТАЕс 227%: БОТ 5ия dress of each location оп the screen. 


If you want to change the 
memory location while the program is 
running press the (:) colon key and you 
will be asked for a new Start address. 


FR DT 


1 15 


Im m m u = = 


телі 


L$-IHKEYS$: IFL$-" "THEHZS 
? 50тей, . 
> РЕ ЧТ" Dr Hee DECIMAL cSOUrC CHR ASCHE ПМусғо-%о 

3 ЕПЕр=йТП4ЭЭ:НЕХТО 

5 РЕТНТТЯЕХ 1231471; N 

п РКІМТІНЕС 20342; &(s) | 944 

3 PRIHTTRECZE CHES E 1 2; RO is 2 TZ 
РЕІНТТНЕ, 2802061 Ë 
£5 КФ-ІНКЕҮФ:ІҒЕФ-": "ІНЕН 

wa MEX TF 


- = 


= 


«nen a on en en en e 


=x, 


орк THE HIGUOTUO Z1 и 


: -HIS IS -PIDP Ur MEMORY: aa 
РЕ НТ “айй Esta 88 ЗЕ як > UR SNS Ш 
Е$= [НЕЕТ$ 

I$-IHKE' T$: Е1$=""ТНЕНЕИ 1 Le 

ІБІЗ- "yY" CE: GOTTA 

IF 1$="H"CUS: EMD 

1%=1НЕЕТФ: IF TS: oY" AMDT $< "H" THEMES 116 


RT 
Cnet m m S. 


m T 


VZ-200 BUG 


To the У2-200 hackers 
among us this short series 
of program statements 
crashes the VZ-200 (Version 
2.0). 


10 №1 : INPUTS: FOR 
Р=1 TOS: N=N* 
РИ(Р+1) : ? №; : NEXT: 


а сла соны қалындық 


This month we would like to 
bring your attention to some bugs in the 
Microsoft Basic interpreter as included 
in the Model l. Users of the CoCo and 
VZ200 might like to try and see if these 
bugs are also present іп their 
computers. 

Firstly, there is a problem with 
BASIC's handling of the “raise to the 
power'' function. Enter the following 
program into your computer and ‘RUN’ 


10 FOR X=1 TO 15 
20 PRINT 2/х 
30 NEXT 


The resultant printout will be as 
follows:— 
2 


4 
8 

16 

32 

64 

128 
256 
512 
1024 
2048 
4096 
8192.01 


16384 

32768 

Whilst the above problem prob- 
ably won't occur all that often, it is a 
good idea to be aware of it. The same 
applies to the following bug. 

RND(X) can return a value of 
X4 1 when X is a power of 2. In cases 
where RND(O) is just under the value of 
one, when multiplied by X, the product 
is rounded and this is where the pro- 
blem occurs. For instance, A = RND(16) 
can return a value for A of 17. To get 
around this, use the following:— 

10 A=RND(16) IF А> 16 

THEN 10 


——M7 


RUN 
INPUT 23 twice and the 
second time round the 
machine goes crazy. 
W Tritscher 


.S. If you pay me for the 
abel кыр it and send it 
to the person who pro- . 
vides the ROM-patch 
routine. : 


VZ bug 


| hope you haven t com- 
pleted a review of the Dick 
Smith VZ-300 because it 
has a bug in the firmware 
(the same as the VZ-200). 
If one RUNs, (then 
INPUTs 29), the following 
- -| series of statements, the 
computer will crash. 
10 N = 1 : INPUTS : FOR 
A=1TOS:N=N+ 


1⁄4 +A): ? №; : 


NEXT : RUN 
I first became aware of 


this fault at the 4th APC 
Show held at Centrepoint in 


Міско бә 4($) Augst p 2-2, 


Sydney earlier this year апа 
informed Dick Smith. 
However, when 1 repeated 
the test on a new VZ-300 
the results were the same. 
Dick Smith is therefore sell- 
ing the VZ-300 with bugs. 
W Tritscher 
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Тре пех! bug сап Бе found if 
you Ну апа use the expression РВІМТ 
VAL ("96 ") in your program. Whenever 
you have a 96 sing in a string to be con- 
verted by VAL you will get a syntax er- 
ror. This bug also appears in the Model 
ІІ ROM. To avoid this error in Disk 
Basic use the following routine:— 

1000 | = INSTR(X$S, "96 ") 

1010 IF | THEN X = VAL 

(LEFTS$(X$,1— 1) ELSE 

X = VAL (X$) 

Non-disk users should use the 
following: — 

1000 FOR І- 1 ТО LEN(X$) 

1010 IF MIDS(X$,I,1)= "^ 96 " 


THEN 1040 

1020 NEXT 1 

1030 I= LEN(X$) + 1 

1040 X = VAL(LEFT$(X$,I — 1)) 

This final bug also appears in all 
versions of the ‘Level Il’ ROM. Enter the 
following program and ‘RUN’ it:— 

10 INPUT A# 

20 A#=INT(A#) 

30 PRINT A# 


If you were to enter — 56320 in 
answer to the prompt, the computer 
would come back with a result of 
- 56576. To explain, when taking the 
INT function of a double-precision 
number which is evenly divisible by 256 
and is less than - 32768 one extra bit 
is turned on when processing the 
number which is subsequently reduc- 
ed by 256, 512 or some other power 
of 256. To avoid this add the following 
fiter to your program:— 

100 A# = SGN(A#) 

*INT(ABS(A#)) 

The first bug was mentioned 
originally іп "80-05" The rest of these 
bugs were first mentioned in ‘The Alter- 
nate Source’. 


(eee ae, ee) 


VZ-200 trace 


In the July edition of APC, 

J Williams suggested a 
method for printing a mov- 
ing message across the bot- 
tom of the Comodore 64 
screen. | modified this for 


‚ tracing function for the 


35 A$=MID$(A$,2) + 
LEFTS (А$,1):ССТО 25 
A friend also told me of a 


№2-200: 

РОКЕ 31003,175 starts 
trace function and prints 
line numbers 


Arc s(s) Avy 34 
Р. 44. 


РОКЕ 31003;0 disables 
this function. 
The only problem is with 
MODE(1), the screen returns 


the VZ-200: 
5 CLEAR 1000 
10 A$=“PUT MESSAGE 
HERE":REM LET А$ BE 


MESSAGE to MODE(O) to print line 
15 PRINT@480,” ” numbers and you don't get 
20 PRINT LEFT$(A$,31); to see what is happening in 


PRINT CHR$(27):: REM high-res graphics. 
MOVES CURSOR UP 
FOR I=1 TO 40: 


NEXT:REM: DELAY Jav Batterson 


— 


the same for TRS-80 anq 
System 80 computers bu 
what readers might find 
interesting is the way it is 
written in ROM viz: 


Trace funcion 


Jay Batterson's report on the 
trace function for the VZ- 
200 is interesting — it is 


1DF7 
1DF8 
1DF9 


1DFA 
1DFB 
1DFC 
TRON calls 1D7 and reads 


LD A, 175 
LD (16667(, А 
ВЕТ 


TROFF calls 1DF8 and reads XORA 
LD (16667), А 
RET 


AR Breffit 


ВРС s(n) No. 34. 
Р 125 


VZ-200 
correction 


In the August issue of APC, 
Jay Batterson submitted a 
short program for printing a 
moving message across the 
screen with a VZ-200. | 
tried this program and it 
didn't work. | was a bit dis- 
appointed that you had 
published it without testing 
it first, so 1 left it alone for a 
while. 

Recently | had occasion to 
use my computer for a 
message on the screen, so | 


dug out the August issue 
and played around with the 
program until | found what 
was wrong with it. 

So here is the same pro- 
gram with modifications to 
make it function: 


CLS 

A$=""YOUR MESSAGE" 

PRINT @ 480, 

LEFT$(A$,31); 

PRINT CHR$(28); 

FOR 1=1 TO 60: NEXT 

A$-MID$(A$,2) 
“Н.ЕҒТ%(А%,1): GOTO 20 
| know this опе works. 


J Kelly 


Арс ап) Nov. $4. 


р. 125, 


VZ290 Input b ea. a. Талда 


11 you are using programs with From Paul Vowles comes this of the best programs wc've seen so 
, DATA lines, why not use the VZ200 program to produce, amazing far for the VZ200 Colour 
capability by a subroutine that will pictures of 3D pyramids on your Computer! 
y p 
г пем data to create revised data VZ200. Without doubt, this is one 
Lines, as follows: 
100 DATA 56 
à 
110 INPUT A 10 REMARKASLE PYRAMIDS 130 COLOR 7,1 
120 READ B 15 REM BY PAUL VOWLES a. ue 140 ON=63+8/210K=(63+8/2)-(B/2.5) 
130 С=А+В 20 CLS:INPUT "PYRAMIO HEIGHT*;H 150 X2=DKiX4=ON:GOSU8 1000 
140 РАМТ С 22 INPUT "LENGTH OF ВАБЕ"; В 160 X1=63-8rGOSUB 1000 
150 PRINT 100 DATA' C . 25 028/2 170 Y1«80:GO8UB 1000 
. 30 IF B«1 OR B583 DR Н<0 OR H»60 THEN 20 180 X1«0N1GO0SUB 1000 
š 40 CLSs®ODE[1)sCOLOR 6,118ЕМ СТАН 180 FOR 2=1 TO BOOO:NEXT Z 
Now CSAVE and the next time the 50 buai’sa-als(u/a.si 200 INPUT "AGAIN"; AS 
program is used (once you have 55 DU-G0-H:0M»63-H 210 IF LEFTs(AS,1)="Y" THEN 20 
moved the cursor up to the last $7 DX«80-INT(H/2.5] 220 END 
printed line and entered) the new’ 50 Yi-0UiX1i-OLiY2«60:X2«62«0:G05UB 1000 1000 SetsIF X12X2 AND Ү12Ү2 THEN S41 
data will bein fh 65 DXsGD-INT(H/2.5) 1010 БЕТ(Х1,Ү1):БЕТ (X2,Y2) 
ata wi ein tne program, 70 Y1s60:X1sO0M:GOSUB 1000 71015 YeY1iN»1:IF Үл«Ү2 THEN А4ж0:6010 1030 
` | 80 Ү1=0Х:Ү2=0Х:60508 1000 1020 А1-(Х2-Х4)/(Ү2-Ү11:1Ғ S:—4 THEN А1»-А1 
With а FOR/NEXT loop, the во ғоз zəY1 TO 60: ЅЕТ(Х1,2] 1030 FOR X-X1 TO X2 STEP S 
theory can be applied to extensive 95 SET [(X2,Z)1NEXT Z 1035 IF X<0 THEN X-0 
progrems, For example you can use 100 X2=DL:Y1=60:Y2=DU:GOSUB 1000 1040 IF Ү<С THEN У=0 
5 d жа :110 Y1=DX:GOSUB 1000 : 1050 SET(X,Y] i Нем 
it то update top scores in games 420 xX4=63+0;GOSU8 1900 - 1060 IF AICO THEN ҮкҮ1+Ң/А1 
programs, or to undste а budget 1079 NEXT XiRETURN 


program, . 


` 
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Cutting 
the 
margin 


By L. Clarke & A.R. Hill 


These hints may help you shorten a 
line which is marginally too long to type 


into the 64 character input buffer (ie,. 


exceeds two lines on the screen). 

The word, PRINT” may Бе enteredas 
а question mark (?) saving four character 
spaces. The word, “REM” or “REM”, 
may be replaced by an apostrophe ('), 
saving either two or three character 
spaces. 

The computer will convert the (?) to 
the token for “PRINT” when it is stored 
in the memory, so that when the line is 
listed, it will appear as ‘‘PRINT’’. If the 
line then exceeds 64 characters on the 
Screen, it will "wrap around” onto the 
next line, but wil! still function normally. 
Of course, the on screen editor uses the 
input buffer, and any attempt to edit a 


Function No How to Use 


` RANDOM1 3416 
. POKE31469,134 


DEFINT 153 1#A,B 
РОКЕЗ1469,153 


`РЕРЗМС 154 1#С,0 us 
POKE31469;154 : 


оета! 155 14, ко ER 
РОКЕЗ1469, 155 


ON S360 oo E 
22222 РОКЕЗ1469,1617 


‘ERROR `'158 HH 
ME 2 'PÓKE31469,161'--no". 


SORES 1570) 158 `. 


SUME. 159- ; 
Wes. he 14100 = 
. 3#100 NEXT .' 
а РОКЕЗ1469, 159 


DELETE 18234150300 | ы 4 
TOKE dna: 182. 


183 1# ? É 
POKE31479, 
` 383:RUN 


AUTO 183 19500, 20 
у POKE31469, 
2 983: :RUN 


эл, S POKE30945, 175 . 


Р 
f 


MUTO 


tfound. 


Description 


Makes RNDI 
random. 


. Defines all variable starting with 
“А” or В” as being integers. 


“Defines all variables starting with | 
“С“сог “D” as being single 
^" "precision 16/7 digit floating: 


2%. Defines all Variables starting wifh 
„7 ЕЕ” ог “F” as being double 
< «precision (16/17 digit floating). - 


Used with ON GOTO, ON GOSUB _ ` 
-. зог ON ERROR (see below). | 


Used as ЖО, ERROR` GOTO line 


ғ. Ағ” i 
-^ After error, return to error point. ` ` 
‚ After error, GOTO 100. 
After error, return to the line after 
ethe one producing the error. 


“Deletes lines 150 to 300 inclusive. 
"Both lines 150 & 300 must exist. ~- 


| "Automatically prints line numbers ` 
Btarting at 10, increment of 10. 


` Automatically prints line numbers 
“starting at 500, increment of 20. 
+ AUTO will print any existing lines | 


-H the AUTO function was haked 3 É а, ү, 
‚ swith[(BREAK]), it will now continue 1 for 
sfrom that point. ? 


line exceeding 64 characters will result іп 
the loss of all text after the 64th 
character displayed on the screen! 

The following functions must be 
POKEd into an existing line in a BASIC 
program. 


Example 1: 

If the first line of а program is used (eg, 
line number 1), then the first memory 
location past the line number is 31469. 
This does not change regardless of the 
number of digits in the line number 
because all line numbers are stored in 
memory as a two byte code. 

Example 2 

If you want use any of the following 
functions in the middle of a program — 
just type up to the place where you wish 
to insert «Һе function, place a dummy 
character in that position, and press. 
{RETURN}. 

Immediately (with no line number) 
type in the following 


PRINT РЕЕК(30969) + 256 * PEEK(30970) 
-4. 


This will give ‘you the memory location 
of the last character you typed into the 
last program tine (in this case the dummy 
character). Memorise this number (write 
it down!) then finish typing in the BASIC 
line, continuing immediately after the 
dummy character. 

When you have finished typing in the 
line, LIST it and check it is correct, 


) statement more VARPTR 192 1#(X) 


POKE31469,192 


STRINGS 196 1PRINT#(12,45) 
POKE31470,196 


MEM 200 PRINT? 


E 182 
одо uz 


` 241182 


- POKE31469,239 


РОКЕЗ1 469. 240 


* = 'POKE31469,241 
242 1A=#(N) ' 
- -POKE31471,242 
22194 1PRINTI ` 
275 РОКЕЗ1470,184 
195 IPRINT& ^ 
= POKE31470,195 


because once you have POKEd the 
function code into the memory location 
іп which your dummy character is 
stored, you will not be able to edit that 
ine! 

You may now POKE the function code 
into thë memorised location which holds 
the dummy character. If the memory 
address should exceed 32767, it is first 
necessary to subtract 65536 to reduce it 
to an integer for the command to 
work. 

It is assumed you have made по 
changes (insertions or deletions) to the 
program before the dummy character, 
because these would have changed its 
memory location. 


MÀ -——— L < -— 


Used to locate the memory address 
.: of a variable. 

Will print 12 asterisks ''*" . 
{maximum length of string = 256 
.Characters). 

Tells the amount of unused memory 


‚ POKE31470,200 left. 


218 1PRINT#(A) 
'POKE31470,218 


"7218 1PRINT#(A $) 
+ POKE31470,218 


Tells the number of unused bytes ` 
‘left in memory. 


Telis the number of unused bytes 
left in the reserved string space. 


Removes all digits after the decimal 
point. 


“Converts numeric variable from 
"double to single precision. 


| Converts numeric vanable from 
` single to double precision. 


Removes all digits to the right of 
the decimal point. Doesn't round 
-: down negative numbers. 


Е ‘Returns the line number trom which 
program branched to error routine. 


: à р Returns 8 value related to the type 
о! error which last occurred. 


- "These functions may be performed either with 

-er without a line number. 

“For TRON (Trace ОМ) 

‘For TROFF (Trace OFF) just POKE 31003,0 
“Тһе audible "beep'' produced when а key % 
essed сап be controlled. , 

ВЕЕР -ОМ just 

"For BEEP OFF just РОКЕ 30779,0 


just POKE 31003,175 


POKE 780779, 32. 
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Following оп from 
a previous article 


(“More functions for the У2200” 


-- ЕТІ March 1984) 
this article outlines a method 
of adding commands 


EXTENDING 
VZ 200 — 
BASIC 


to the standard VZ200 BASIC. ме” 


Steve Olney 


THE PREVIOUS article showed how to 
unlock several ‘hidden’ functions contained 
in the VZ200 BASIC ROM by entering the 
commands indirectly via a BASIC program 
itself. This approach meant that it was nec- 
essary to run the BASIC program each time 
the function was needed. This is very incon- 
venient and, as was hinted at in the previous 
article, a more elegant (and more conven- 
ient) approach would be to have the added 
functions accessed as if they were part of the 
original command set. 

This article gives a method by which this 
can be done and gives a practical example 
by making the AUTO command part of the 
legal VZ200 BASIC command set. 

The machine code necessary to achieve 
this is quite short because, as indicated in 
the previous article, the code which does 
the bulk of the work is already resident in 
the VZ200 BASIC ROM. It is only neces- 
sary to get the BASIC interpreter to recog- 
nise the auto line-numbering command 
(AUTO X. Y) as legal and then jump to the 
relevant code in ROM. 

The method outlined here only applies to 
adding commands to the ‘immediate execu- 
tion mode’. (i.e: typing in commands with- 
out line numbers). It does not deal with 
commands that are to be used within 
programs. 


How it works 
Those who are only interested in the end 
result of adding the AUTO command to the 


` legal commands can skip this section and go 


straight to the section dealing with entering 
the program. Those who are interested in 
how it works — read on! 

The reason why it is possible to add 
commands to the standard VZ200 BASIC 
command set (thereby extending it) is that, 
in common with some other BASICs, at 
various points in the machine code т ROM, 
calls are made to locations in RAM. This 
makes it feasible to modify and/or extend 
the code at a later date. A common 
example is where a disk system is added 
later. An extended or enhanced BASIC can 
be implemented by downloading extra code 
off disk to the relevant called location. If all 
the code was executed in ROM then this 
could not be done. 

In a non-disk system (such as the present 
VZ200) these called locations are usually 
initialised to 'OC9H' (H means hex address 
of location), which is Z-80 machine code for 
Ret. So normally, when these RAM loca- 
tions are jumped to via ‘calls’ from the 
BASIC ROM, execution returns immedi- 
ately to the BASIC ROM via the ‘Ret’. 

Now, because the Ret's are in RAM, it is 
possible to change the Ret to a jump to 
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extra code which will be executed before 
control is returned back to the BASIC 
ROM. 

In the VZ200, all the calls from the 
BASIC ROM to RAM are to locations 
between 7952H and 79E2H. One of these 
exits will be used to add Auto X,Y to the 
legal command set. 


The BASIC interpreter 

Leaving the ROM exits for the moment, 
consider what happens when an ‘immediate 
execution’ command is entered. While the 
text is being typed іп. the character codes 
for each key-press are being entered into a 
text buffer at around 79E8H. When Return 
is hit, the interpreter looks at what has been 
entered into the buffer. Scanning from left 
to right. it looks for ‘reserved words’ (words 
set aside for commands e.g: Print, List 
etc.). The BASIC ROM contains a list of 
these reserved words beginning at 1650H 
and ending at 1820H. This can be revealed 
by an ASCII dump of this block of memory 
(the first letter of each reserved word has 
80H added to ASCII code which wil] result 
in garbage for that letter.) 

The interpreter scans the text trying to 
find one or more of these reserved words. 
when one of these is found the reserved 
word text is replaced by a single byte or > 
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‘token’ (80H to ОЕВН). The token is the 
offsct into the list where the reserved word 
is located and is used as an index into 
another table which contains the address of 
the machine code for that command. 

If the text cannot be resolved into 
reserved words or text which belongs to the 
reserved words, then a Syntax error mes- 
sage is generated. The trick is to intercept 
control of the interpreter just after the 
reserved list has been scanned and add code 
to re-scan the text to see if it contains the 
new command Auto X.Y. 

By good fortune (or good design), 
immediately after scanning has been done 
there is a call to RAM (to 79B2H). The Ret 
(0C9H) at 79B2H is changed to a jump to 
extra code which will re-scan the text buffer 
for Auto and if found, will replace the text 
with the relevant token. 

Because only the reserved word list is dis- 
abled (bv deleting Auto from it), once the 
Auto command text has been replaced by 
the correct token (0B7H), the following 
interpreter code will recognise the token 
and accept it as legal. 


Entering the program 

The machine code program is entered via a 
BASIC program (Listing 1) which POKEs 
the code into RAM from Data statements. 


The BASIC program locates the machine 
code to high memory after resetting the 
BASIC top-of-memory pointer to below 
where the code will be POKEd. By this, the 
machine code program is located out of the 
way of any BASIC program to be entered 
later. This action is independent of memorv 
size. 

The machine code listing is shown for 


reference only. АП that is necessary is to 


enter the BASIC Program, save it on tape, 
and from then on just run it before you start 
entering your BASIC program. If all is well. 
control will be returned to the Ready level 
and. unless the machine code is overwritten 
by POKEs or the VZ200 is reset, the Auto 
command is now part of the immediate 
command set. 


Auto command syntax 
The form of the Auto command is ‘AUTO 
X.Y' where X is the starting line number 
and Y is the increment beteen line numbers. 
Entering AUTO X will give a starting 
line number of X and a default increment of 
10. while entering AUTO, Y will give a 
default starting line number of 10 and an 
increment of Y. AUTO by itself will give 
both the line number and increment a 
default of 10. 


To exit the Auto mode. hit ‘CTRL 


2. of 3. 


BREAK’. Entering the Auto mode with 
line numbers of statements already entered 
can be a. useful single step checking and 
editing feature (see previous article). 


Adding other commands 
This method can be used for ‘unlocking’ 
other commands ‘hidden’ in the VZ200 
BASIC ROM. As shown in the previous 
article, the commands TRON and TROFF 
are also accessible. In the time since that 
article was submitted it has been found that 
the code for a delete command (DEL X-Y), 
with the same syntax as the LIST command, 
is also present in the VZ200 BASIC ROM. 
The listing for a BASIC program that 
‘unlocks’ the ‘hidden’ code for the AUTO, 
TRON, TROFF and DEL commands is 
available from the author. It is of the same 
form as the program described here. 


What next? 
The above four extra commands have 
proved to be very useful and have resulted 


in significant time-savings іп writing 
BASIC code. Other useful commands 
would be REN (line re-numbering), 


MERGE (merging small sub-programs on 
tape into one program — difficult, because 
it appears that the VZ200 CLOAD always 
loads a BASIC program to the location in 


136 — ETI October 1984 


- EXTENDING VZ BASIC 


memory from which it was CSAVEd), DH 
and HD (allows decimal to hexa-decimal 
conversion, and vice-versa). These would 
be much more difficult to implement as 
there is no code present in the VZ200 
BASIC ROM, so they will have to be writ- 
ten from scratch. 


Cautions 

Firstly, as this program uses code in the 

Version 2.0 BASIC ROM, users with other 

versions (if any) will have to check to see if 

the program works with their version. 
Secondly, you may have already found 


a Machin rge Listin SKIP INC HL 
NEXT LD А, (HL) 
i JEJE ARETE + ЗЕ ЕЕ ЗЕ ЗЕ ЗЕ ЗЕ ETI AIGA ESE TIE ЗЕ TCA TIER TEE OR А 
г жа ж JR Z,ENDLIN-$ 
š %% BASIC AUTO LINE-NUMBERING UTIÜTY FOR THE У2200 ж cP 28H 
y ж COPYRIGHT (С) 1984 BY STEVE OLNEY жж JR 2,5КІР- 
ж- 268 Terrace Rd. North Richmond 2754 ** LDI 
t жж ік NEXT-$ 
Line in text buffer 


MACHINE CODE PROGRAM 


ЗЕЕ qpoeryeep!dHdee)eOHOeneedopmpHe)ee)ep|eeeeedediocae 3 


that during normal program entry, осса- 
sionally the cursor will skip a linc after you 
hit Return. This is of no real consequence 
— until now. Unfortunately the auto line- 
numbering code doesn't like this and 
responds by displaying the next line number 
as it should. but then positions the cursor at 
the beginning of the next line. Any BASIC 
statements or text entered on that fine will 
be lost. 

Each time Return is hit for a new line 
number, check to see that the cursor is on 
the same line as the new line number. If it 
isn't, hit Return again. This will skip to the | 


i ; and register 'С' 


(POKE'd from the Basic program) i 


next line number. Do this until the cursor is 
positioned on the same line as the new line 
number, then it is OK to enter statements. 
Unless you are fussy the missed line num- 
bers should not be a problem. Of course, 
you can exit the auto mode (CTRL 
BREAK) and restart so as not to miss a line 
number. 

A printed listing of a larger program to 
add the AUTO plus TRON. TROFF, DEL 
commands to the legal command set can be 
obtained for $5.00 from the author at: 200 
Terrace Rd, North Richmond NSW 2754. 
Remember YOUR address! (pref. SAE) б 


Adjust HL to next byte 

ібеб byte from text butter 

$15 it zero ? 

31% zero then end of 

$15 16 a space 7 

% 3Yes ? Then skip to next byte 
iNo ? Then transter byte 
3*orward and continue 


line 


must terminate with three zero bytes 


must contain the new line length 


ENDLIN LD (DE),A Terminate line with three 
Actual origin depends on the size of the memory in the INC DE ;zero bytes. 
У2200 used. LD (DE),A 
INC DE 
TAPT ORG ввеэн LD (DE),A 
LD A,C Мем text byte count-1, add 6 
4 Тәуе registers to be uses CPL ito complemented negative no. 
H ADD A,B6 бо adjust to line lengthtl 
REGSAV PUSH AF LD (LINLEN) А jand store it 
PUSH BC i 
PUSH БЕ 4 Restore registers 
PLUSH HL ; 
гис In RESREG POP Ix 
; POP HL 
i 7515 code scans the text butter for the 'AUTO' command. РОР DE 
š POP BC ро this Just to empty stack 
AUTOSC LD в,05 sNumber of bytes to scan POP AF 
LD 1“,АОТТХТ iPointer "AUTO" text table LD BC, (LINLEN) ¡Restore BC with new line 
5САМ1 ІМС HL 3Ай)5б to next byte in buffer LD в, 88H ¿length on return to ROM 
LD А, (1х+69: ібеб first byte of table RET 
СР CHL) ;Compare with byte іп buffer ; 
JR NZ,EXIT-9 31$ not equal then exit ; Auto command not found so we return to ROM without 
INC Ix {Моуе to next byte in table ; altering text or 'C' register. 
DINZ <САМ1-% 3Loop back until 3 bytes done ; 
; ЕХІТ РОР Ix 
$ Execution drops through to tere if al! bytes match. POP HL 
; Тһе 'AUTO' text ıs replaced with its token (@B?hex) and POP DE 
i the rest cf the text (operands f any) is closed up behind POP BC 
: the token. РОР АҒ 
i RET 
FNDAUT PUSH HL %бауе end of "AUTO" іп buffer i Text table for the 'AUTO' command. Because the 'TO' іп 
DEC HL ;Move Басы to beginning of i "AUTO" is a reserved word, it will have already been token- 
DEC HL $'AUTO' text in butter $ ised. The token for 'TO' is 8BDH. 
LD (НЫ), ЯБ?Н 3Керіасе first byte with token Н 
LD BC, вевен ifor ‘AUTO’ AUTTXT DEFB NAP $ASCII "А" 
POP DE jEnd of 'AUTO' text in buffer DEFB "Ш" sASCII "U" 
Ex РЕ, HL iHL=end of 'AUTO',DE=token DEFB еврн $ Token far "ТО" 
INC DE sAd)ust DE to next byte LINLEN DEFS 2 
LISTING 1 268 POKEST*I,D 
8 REM JERI HEE 265 С5=С5+р:' UPDATE CHECKSUM TOTAL 
ie: 3d USE THE SHORT FORM *'* FOR THE REST OF THE *REM"S ## 278 NEXTI 
28 ' ++ + 275 ІЕС5< ›9861ТНЕМРКІМТ "- ERROR ІМ DATA ENTRY -°:ЕМО:` CHECKSUM 
28" 4H BASIC AUTO LINE-NUMBERING UTILITY FOR THE У2200 Ж 288 FORI=1TO3:READLB,OS: Т5=ТМ+05:; * BECAUSE PROGRAM IS RELOCATED 
4g ' ++ COPYRIGHT (С) 1984 BY STEVE OLNEY ж 298 MT=INT(TS/256) :LT=TS-MT#256: ° ABSOLUTE LOCATIONS NEED TO 
58’ ++ 288 TERRACE RD. NORTH RICHMOND 2754 ++ 388 . POKEST*LB,LT:POKEST*LB*1,MT:' LOADED 
eg ' н. "AUTOBAS* ТАРЕ FILE 417-B 9/5/84 VERSION 1.2 жж 510 МЕХТІ 
28“ + ** 365 ' ALTER “КЕТ” AT 29B2 HEX TO JUMP TO START OF MACHINE CODE 
ве ' JESSIE нн ннненнннн нн кнннннннннннн 378 РОКЕ51155,1.1:Р0КЕ51156,М1:Р0КЕ51154,195 
9g * 588 РОКЕ50862,249:РОКЕ50865,0:" LOAD CALL TO “READY” ROUTINE 
188 RB=108: ТМ= (PEEK (38897) *PEEK (38898) #256) -RB:'GET ТОР OF 398 x-USRIgi:" AND SO TO IT 
118 MS-INT(TM/256):LS-TM-MSX256:" MEMORY AND MOVE 395 ' DECIMAL EGUIVALENT OF MACHINE CODE PROGRAM INSTRUCTIONS 
120 POKE38897,LS:POKE38898,MS:* DOWN 188 BYTES 408 DATA2Z4S, 197,213,229, 221,229, 6,3, 221,33, 79,8, 35,221, 126,8 
288 СЕЕАВЗВ: * РЕЗЕТ BASIC STACK PTR 418 DATA198,32,53,221,35,16,245,229,43,43,54,183,1, 0,0, 209,235 
238 ТМ= (PEEK (39897) +РЕЕК (50898) K256):* NEW ТОР OF MEMORY 428 DATAI9, 35,126, 183, 48,8, 254,32, 48, 247, 237, 168, 24,244, 18419 
235 МізІМТ(1(ТМ%е11/256):11-7М%1-М1%256:" NEXT LOC'N ABOVE Т.О.М. 450 DAT AUG 19. Le AAT 6711985 6s SB S250 I 221 2252252094 09S 
248 ST-TM:IFST:32767THENST-ST-65536:" START OF M/C PROG. -1 448 DATA2491,237,75,82,8,6,8,281,221,225, 225, 209,193,291, 281 
258 FORI-1TO82:" LOAD 82 BYTES OF MACHINE CODE INTO RESERVED 450 DATAGS, 85, 189 
255  PEADD:* AREA ABOVE BASIC TOP OF MEMORY 460 DATA11,82,58,83,68,83 


3 of 3 


ЕТІ October 1984 — 137 


TRON/TROFF 
function for 
VZ-200 


When debugging a Basic 
program, it is frequently use- 
ful to see exactly what 
‘sequence of instructions the 


computer is interpreting. 
This is the function of the 
TRON (Trace ON) command 
found in many versions of 
Basic. 

This command is not, 
however, directly available to 
the VZ-200 user and must 
be executed by POKEing 
directly to the screen. 
POKE 31003,173 enables 


A Pc. 


the TRON command 
РОКЕ 31003,0 disables the 

command (enables 

TROFF) 

The TRON function 
executes the program as in 


| normal execution, but dis- 
| plays each line number 


within brackets as it is 
executed. This Trace is use- 
ful in following the program 
flow during debugging, 
especially in the case of con- 
ditional GOTOs or GOSUBs. 
Normal display data 
generated by PRINT or other 
commands will be inter- 
spersed with the Trace line 
numbers. 


$ (n) Nov. 84. 
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Тһе РОКЕ values сап Бе 
entered directly from the 
command level and then 
RUNning the programs, ог 
they can be incorporated 
within the body of the pro- 
gram (especially useful if 
only a section of the pro- 
gram requires debugging). 

The use of the CTRL and 
BREAK keys can be used at 
any time to stop the display 
for scrutiny. Entering the 
CONTinue command will 
restart program execution. 


І Thompson 


МОМ-200 is а machine code monitor 
program for both 8 and 24k VZ-200s, 
featuring relatively easy data entry, 
screen listing of memory, execution of 
routines and provision for dumping 
memory to a printer. Also included are 
utilities for decimal to hex conversion 
(and vice versa) as well as a block 
memory move facility. All input is in 
hexadecimal. 

After CSAVEing and RUNning the pro- 
gram, you will have the following options 
available: 

(E) Enter Data: data is entered eight 
bytes at a time in the format 
"ММММ dd dd dd dd dd dd dd dd’ 
where NNNN is the location of the first 
byte to be entered, and dd represents a 
single byte. Hit RETURN after the last 
` byte, and note that the spaces are essen- 
tial for successful operation. Data entry is 
not accepted if you specify a ROM loca- 
tion (obviously), system RAM, program 
RAM or the location of the block move 
routine. After entering the first eight 
bytes, you may choose to repeat the pro- 
cedure or, if entering data in sequential 
locations, simply hit RETURN when the 
input prompt appears; the next logical 


memory location is automatically 
calculated and printed for you. The entry 
format remains the same whichever 
method is used. To abort data entry, hit 
“А, and to return to the option menu use 
‘=, whichis the universal return-to-menu 
key throughout the program. 

(V) View Memory: after selecting the 
'View' option you will be asked for start- 
ing and ending locations (which default 
to O and 65528/FFF8H respectively if 
none is specified). Again, the 'A' key may 
be used to abort. 

(R) Run: in the execute mode you will 
be asked to confirm your intention by 
typing 'R'. After entering the starting 
location of your routine, and assuming 
there is provision for a RET to Basic, you 
will be returned to the main menu 
after execution. 

(D) Decima-Hex and (Н) Hex- 
Decimal: simple to use, just enter the 
number to be converted and hit 
RETURN. Press RETURN to use again or 
'— to exit. 

(M) Move Memory: you will be asked 
to enter the source, destination and 
length of memory to be moved, and are 
returned to the main menu on comple- 
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MON-200 


by Chris Stamboulidis 


tion. The code for the routine is POKEd 
into memory from 29200/7210H 
onwards, which is part of the video RAM 
used by the hi-res screen. This doesn't 
rule out the use of MODE (1) as the 
routine is POKEd into place when 
needed. 
(P) Printout: if you require a hard 
copy, ensure that your printer is connec- 
ted before power-up. The routine was 
written for the РР-40 Printer/Plotter, 
although any printer should do. Note that 
line 4030 sets the printer to 40-column 
mode and selects black ink. Simply 
replaceing this with the appropriate 
instructions for your printer. After pro- 
viding the code to be dumped with a 
name, hitting RETURN will enter the 
View mode where operation is as des- 
cribed here. 
(X) Exit: you will be asked to confirm 
that this is your intention — 'YES' is the 
only way out. 

Note that the following should be 
typed in with inverse text: 
— line 10 everything within the 

quote mark 
— lines 20-50 : the letters inside the 
greater/less than symbols. ` 
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MON -200 1977784 = 
an A MACHINE CODE MONITOR 2 
ы FOR THE 48-209 = 


hy 700) 
5 


DATA 2372, 25, 20,114, 237,91,18,114,237, 1 
07, 16, 114,232, 176,201 
8 CLERR200 :GOSUB20000 


о-- о 


10 CLS:PRINT" ЖЖЖ M O N - 2 8 0 xxx- 
":Pr-0 

20 PRINT@134,"<X> EXIT" :PRINTTAB(6)" <E> 

ENTER DATA" 

3@ PRINTTAB(6)"<U> UIEW MEMORY" :PRINTTAB 

(6)"4R» RUN" 


40 PRINTTABC6)"<D> DECIMAL->HEX" :РКІМТТА 
BCG)" <H> PEX-»DELIMBL" 

50 PRINTTABC6)"<mM> MOVE MEMORY" :PRINTTAB 
(6J* <P> S PRINTOUT 

60 K$-INKEYS$:K$-INKEYS:IFK$-""THENOO 

20 1ЕК$="Х"ТНЕМ1@@@@ 

80 IFKS-"E'"GOSUBIO00 

90 ІЕК%= "0" 6050820606 

100 IFK$="P"GOSUB4868 

110 ІРК%-"К"ТНЕМЗ000 

120 IFK$-"H'THEN200 

130 IFK$="D" THENS@@ 

140 IFK$="M" THEN2000 

150 GOTO6@ 

200 CLS:PRINT: INPLT"HEXt" ;H$:IFH$z"-"THE 
N10 

205 60$1858889 : [1ЕЕРХТНЕМРК 1 МТЕК$ :GOTO2Q0E 
ESEFRINT"DECH- ;D 

210 Q$-INKEY$:Q$-INKEYS: IFQ$-""THEN210 
220 IFQ$-"-"THEN1O 

230 IFQS$-CHRS$C13)THEN200 

240 6070210 

500 CLS:PRINT:INPUT"DEC#" ;D$: IFD$-"-"THE 
N10 

503 IFD$<"@"ORD$> "9" THENPRINTERS :6070500 
505 D-URLCDS$):GOSUB6000 : IFEF*THENPRINTER 
%:50Т70500 

508 РКІМТ"НЕХ#=" ;H$ 

510 Q$-INKEY$:Q$- INKEYS$ : IFQ$-""THENS10 
520 IFQ$-"-"THENIO 

530 ІҒ0%-СНК%С(132ТНЕМ500 

542 6070510 

1000 ГІФ:РКІМТ"ЕМТЕК DATA + <>>=МЕМЫ, <А? 
=ABORT ":Мх=0 

1010 INPUTED$: IFED$="-"THEN1@ 

1020 IFED$="A" THEN] 000 
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1030 IFED$-""THEN1100 
1040 IFLENCED$) <>28THENPRINTER$ : 60701010 
1050 H$-LEFT$(ED$,4):GOSUBS000 :Мх=0 : FORK 
° z=6T022STEP3 

1062 H$-MIOSCEDS$,Kz, 2) :605085000 :LI2Mx * CK 
473-2) 

? 1020 IFU»32282THENU-U-FF 

° 1080 POKEU,D:NEXT:GOTO1010- 

1100 Мх=Мх+8 :0=Мх :GOSUB6000:PRINTCHR$(8) 
SCHRS( 2715" "H$; 

° 1110 FORYx-1TO6:PRINTCHR$(8) ; : NEXT:GOTOI1 
0198 

2000 CLS:PRINT"UIEW MEMORY : <->=MENU <A 
° >=ABORT" 

2010 INPUT" START" 3SU$:IFSU$="" THENSU=@ 


:GOTO2020 
? 2012 IFSU$="A" THEN2ZQ@@@ELSE IFSU$-"-" THEN] ° 
4 а 

2015 Н%-50%:0605085000:ІҒЕҒХТНЕМРБІМТЕБӨ: j 
° 50702010 ° 
° 2018 SU=D x 

2020 INPUT"x END  ";EU$:IFEU$-""THENEU-T 

,.M:G0T02030 >, 

° 2022 ІҒЕУФ-“А"ТНЕМ2000Е15ЕІҒА%-”-“ТНЕМ10 ° 
°| 2025 H$=EU$ : 605085000 : ІҒЕЕх ТНЕМРР 1 МТЕК$ : E 

60702028 
° 2028 Eu=D ° 
° 2030 CLS:PRINTF$:IFPzZTHENLPRINTLEFT$(F$, А 


29) :LPRINTGS$ 

2040 FOÜRI-SUTOEUSTEPB :0= 1 :G0SUB6000 :PRIN 
ө ТН; sx “3 Г 

2050 JFP*THENLPRINTHS 3": 

2060 IFI»32267THENOF =F FELSEOF «à 

° 2020 FORJX-0T02:D«PEEK(CI*JX -QF 1 :GOSUB600 


2 

x 2080 PRINTRIGHT$(H$,2); "; ‚ n 

° 2082 IFPXTHENLPRINTRIGHT$(H$,23;" "; . 

š 2084 NEXT:PRINT"":IFPzZTHENLPRINT"' j 
2085 IFPEEK(29120) O 32THENPRINTGQ,F $ :PRI 

+ NT8422," " ° 

" 2090 I$-INKEYS:IS$-INKEYS:IFIS$-""THEN2090 R 
2092 1Е1$="А"ТНЕМ2@@@ 

ы 2095 IFI$="-"THENIO ° 

° 2100 МЕХТ:Рх-0 а 


2110 K$=|NKEY$:[FK$=" ТНЕМ211@ 
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2115 1ЕК$="А"ТНЕМ2000 
2120 IFK$="-"THENIQ 
2130 60702110 
3000 CLS:PRINT"EXECUTE : ¢->=MENU <R>=RU 
қ Ё 
| 3010 INPUT"START LOC";SL$:IFSL$-"" THEN3O 
40 
| 3020 IFSL$="-"THEN1Ø s 
3030 H$=SL$ :GOSUBSQQQ : IFEF xTHENPRINTERS: 
GOTO3040 
| 3040 PRINT:INPUT"ENTER <R> RUN" ;ам : IFAN 
$- ""THEN3040 
3050 IFAN$-"-"THENIO 
| 3060 IFANS <> "R"THEN3040 
3065 MS-D^256:LS-D-C256XMS) 
3020 POKE30862,LS :POKE30863, 1S :X -USRCO) : 
| GOTO10 
4000 CLS:PRINT"PRINTOUT : <->=МЕМИЫ 


| 4010 РЕІМТ"ж ENSURE PRINTER REABY" :PRINT 
:Рх= ] 
4020 PRINT"X*X ENTER ROUTINE NARME:":INPUTR 

| N$:RN$-LEFTS$SCRN$,18) 
4030 LPRINTCHRS$CI8):LPRINT"S1" :LPRINT"CO 
" SLPRINTCHR$(CI2) 

| 4035 INPUT"HIT «RETURN» TO PRINT";6NS$:IF 
ЯМ$ =" - "ТНЕМ1 0 

| 4040 LPRINT"MON-200 : SRN¢:GOTO2008 
5000 EFX*-0:D-0:LNX-LENCH$) : IFLNX2 4ТНЕМ5Ӣ 
50 

| 5010 FORI%=1TOLN% :В$=М10$(Н$, Іх. 1) 
5020 IFCBS$=> "GO" ANDBS=<"3" JOR(B$=> "A" ANDB 
$-Q"F"JTHENSO3O0ELSES050 

| 5030 Jx-RSCCB$)-48:IF JX» STHENJX-7JX-2 
5040 D-DX16*J4:NEXT :RETURN 
5050 EFX-1:RETURN 

| 6000 EFz=0:H$="" :IFD<00RD>FF-1THEN6600 
6010 22-0/4036:ПО-О-4036Ж22:0050В6500:2х- 
0/256 :0=0-256Ж2х 

| 6020 GOSUB6S00:zzx=DZ16:D=D-16xzzx:GOSUB6S 
00 :2xzD:GOSUB6500 :RETURN 

' 6500 H$-H$*TIDS$CN$,2*x*1,12:RETURN 

| 6600 EF*=1:RETURN 


2000 CLS:PRINT"BLOCK MOVE : <+>=MENU 
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2005 RESTORE :FORIX-23206T023220 :RERDJ x :P 
ОКЕ IZ, Ух :МЕХТ 
° 2010 INPUT"X FROM" ;SL$:IFSL$="-"THEN1@ 
2020 H$-SL$:GOSUBS000 : IFEFXTHENPRINTERS: 
GOTO2010ELSESL-D 


° 2030 INPUT"k TO  "3DL$:IFDL$-"-"THEN1O 
è 2040 H$=DL$ :GOSUB90Q0 : IFEFxTHENPRINTERS : 
GOTO7@3@ELSEDL =D B 
Ы 2050 INPUT"X BYTES" ;NB$:IFNB$-"-"THENIO 
° 2055 H$=NB$ :6050850080 : ІҒЕЕХТНЕМРЕІМТЕВ : 
В 50702050 
2060 МВ-О:Нх-51/256:б62-51.-(Нх%256) :POKE2 
° 9208, Gx :POKE29201,Hx 


2020 Hx*-DL^7256:G«-0L-CHx*256) :РОКЕ29202, 
бх :РОКЕ29203, HX 


қ 2080 Нх-МВ/256:бх-МВ-(НнхЖ256) :РОКЕ29204, 

le Gx :POKE29205, Hx 

Я 2898 РОКЕЗ9862, 22 :POKE3@863, 114 :X=USR(@) 
:GOTO10 

° 9002 IFLENCH$)»4THEN9100 


9010 6051850880 

9020 IFD»TMORD«23184THEN3100 
° 9030 IFD»302198NDD«XCPEEKC30973)2 t256XPEEK 
С30924 ) )ТНЕМЭ100 
9040 IFD>29199ANDD <29221ТНЕМ9 100 


° 9050 EFx-0:RETURN 

° 9100 EFz=1:RETURN 

* 10000 РРІМТӨ449, "АРЕ YOU SURE" ; : INPLUTANS 
10010 IFAN$<>" YES" THENPRINT8449,SS$ :GOTO 

о 50 


10020 PRINTG443,SS$:PRINTG449, "0. K, " :FOR 
D=] T0500 :NEXT 
ө 10630 CLEARS@:CLS:END 
20000 N$-'012345627898BCDEF ":EF *-0:ERS$-'"? 
ERROR" :FF «65536 


° 20020 F$-'"LOC : +0 +1 +2 +3 +4 +5 +6 +2 
à 4 
ааа Во 
° :F$=F$+G$ 
è 20040 SS$=" 
° 20050 TM-PEEKC(30892)*256XPEEKC30838):RET 
ө URN ç 
ө 
ө 
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LPRINTER 


By Robert Quinn 


А РР40 printer program for the VZ-200, it allows you to use 
your VZ-200 as a typewriter, LPRINTING in upper case, lower 
case, normal or inverse print, and to LPRINT graphics. 


Instructions 


Switch on your PP40 printer plotter. RUN the program anda 
blinking cursor will appear on a black screen to indicate your 
start position. Type using any of the character keys on the 
keyboard by themselves or with the SHIFT key held down. 
The corresponding characters will print on the screen and 
LPRINT to your PP40 printer. 

LPRINTER starts upin normal uppercase mode. Press the 
CTRL key to shift to lower case LPRINTING; and press the 
CTRL key again to return to upper case LPRINTING. 

Hold the SHIFT key and press the X key to shift to inverse 
printing and LPRINTING: inverse LPRINTING is dis- 
tinguished from normal LPRINTING by underlining. 

A carriage return will operate automatically to start a new 
line when the end ofthe line is reached, though the end of the 
LPRINTER line (40 characters) will not correspond with the 
end of the screen line (32 characters). 

A carriage return can be accomplished any time by press- 
ing the RETURN key. 

Backspacing to the start of the LPRINTER line can be 
accomplished by holding the SHIFT key and pressing the B 
key. Everytime SHIFT and B are pressed the pen holder will 
move left one character. The screen cursor will backspace as 
well, but will erase characters it passes over. 

The screen cursor will blink a hash sign when the 35th posi- 
tion on the cursor LPRINTER line is reached and a hi-lo 
warning buzz will sound to indicate that you are nearing the 
end of the LPRINTER line. 

The VZ-200 supports sixteen graphic characters. 
LPRINTER LPRINTS graphic characters but does not uni- 
quely define every one of the sixteen. In the categories that 
follow the letters designate the letter keys by which (with the 
SHIFT key held down) the corresponding screen graphic 
characters are accessed. The number following each letter is 
the ASCII code for the graphic character. Then follows a line 
of the LPRINTER graphic character that defines those 
screen graphic characters. You may wish to refine the defini- 
tion of screen graphics so as to give each screen graphic 
character a unique LPRINTER character. 


5 REM LPRINTER FOR 92200 BY ROBERT QUIN 
N 
10 COLOR; 1:SOUND? , 2:CLS 


20 FORR-1TO2STEPO : IFPEEKC26825) =249ТНЕМЅ 


OUND2@, 1 :P-NOTP 

22 IFPEEK(26825)-2243THENLPRINTCHR$(13);: 
LPRINT:D-0:GOSUB320 

25 IFPEEK(26877)=251 THENK=NOTK : SOUND2O, 1 


BENSSSESEEXEEEEERSEEEGU 
00000000000000000000 


БЕБЕЕЕЕБЕЕЕЕЕЕБЕББЕВ 


0101001001000000070000 
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ЕЗ ЕЗЕЗ ЕЗ ЕЗ ЕЗ ЕЗ ЕЗ ЕЗ ЕЗЕЗ ЕЗ ЕЗЕЗ ӨЗ ЕЗ ЕЗ ЕЗ ЕЗ Б? 


SSSS8SS8S88DSSSSS8SDSSS 


овввввввввйвйвййвйвйййййй 


А СОРҮ subroutine is RUN from within the program Бу 
holding the SHIFT key and pressing the C key, producing а 
printout of the entire contents of the screen — normal, 
INVERSE and graphics. 

With LPRINTER CLOADed but not RUNning the COPY 
subroutine can be used directly by entering the command 
GOSUB300 and pressing the RETURN key. 


26 IFPEEKC2687S)=2S@ANDD> @THENGOSUB28@ 
22 IFC=2@ANDD=35THENPRINT"#" ;CHR#(8) ; : 
507023 

28 ІРС-20ТНЕМРКІМТ" _" ;СНК$(8); 

29 C-C*1:IFC-240THENC-1:PRINI" ";CHR$C8); 
30 B$-INKEYS:A$-INKEYS :IFA$ <> "" THENSOUND 
10, 1 :G0SUB50 

40 AS="" = NEXT 


55 
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50 R-RSC(CR$):B-R:IFP-2-18ND8» 31ANDA<64THE 
NB-B*132 

60 IFP=-1ANDA>63ANDA<1] 28THENB=B+ 128 

65 IFK=-1ANDA> 63ANDA<SSTHENA=At 32 

20 IFR»122THENGOSUBI118:GOTOS0G 

80 LPRINTCHR$(ñ); 

90 IFP=-]ANDA<127ANDA> 31THENLPRINTCHRS (8 
); СНК$ (95); 

95 IFB=13THENPRINT" ";СНК$(8);:0=-1 

100 PRINTCHR$(B);:D=D+1 :IFD=3STHENSOUND3 
1,2;20,1 

102 IFD=41THEND=1 

105 RETURN 

110 JFA=1330RA=138THENLPRINTCHR$ (85) ; CHR 
$(8) ;3СНК$ (84); : RETURN 

120 IFA=1310RA=14@THENLPRINTCHRS(85) 3 СНК 
$(8);СНК$ (69) ; : RETURN 

130 IFA=137THENGOSUB19@ :LPRINTCHR$C92) : : 
RETURN 

140 IFA=134THENGOSUB19@ :LPRINTCHR£(C42) ; : 
RETURN 

150 IFR-143THENLPRINTCHR$ (79) ;CHR$C8) ;CH 
R$C85) ; :RETURN 

160 IFR-128THENGOSUBIS? :LPRINTCHR$ (42) ;C 
НК%(82:СНК%(352; : RETURN 

165 IFA=13S0RA> 138THENGOSUB1390 :LPRINTCHR 


$(43) ; : RETURN 
178 LPRINTCHR$(122);:RETURN 


190 LPRINTCHR$C293) ; СНЕ (8) ;CHR& C85) ;CHR$ 
C8) ; :RETURN 


200 SOUNDIO, ]:PRINT" ";CHR$C8);CHR$(8);: 
LPRINTCHR$(8) ; 
219 D-D-1:RETURN 


302 FORT-286221023183:R-PEEK(CT) 

310 IFA<32THENLPRINTCHR$C(At64) ELSEIFRX6 
4THENLPRINTCHR$CA); 2 

320 IFA>63ANDA<S6THENLPRINTCHR#CA) ; СНК С 
82:СНК%(35); 

330 IFA>SSANDA<128THENLPRINTCHR#CA-64) 5C 
НК%(82;СНК%(95); 

340 IFA> 127THENGOSUB37@ 

350 D-Dt1:IFD-232THEND-0 :LPRINTCHR#(13) 3 
360 NEXT :D=@:LPRINTCHR$(13) ; :LPRINT:RETU 
RN 


320 IFR» 143THENA=A- 16 :6070370 
380 GOSUBI110:RETURN 


Peo Моза (к) pSí-54 ada, 


evene Peg 


An interesting effect available 
on the VZ-200 is the ability to 


reverse the video display via аск 


POKE command. 


Оп turning on the Yz- 200 


(version 2.0), the text is 
shown ав biack оп a light 
green background. СОГОВ,1 


POKE 30744 1 


as Olai 
white text соп black. 
respectively. 
K 
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POKEing 30744,1 reverses 
the image, giving light green 
text on a dark green back- 


- ground with COLOR, ава 
orange text on a red Sack- 


ground with COLOR,1. 
POKEing 30744, О revert iF 
back to black text on a light»... 


light green text on dark 


$3 x =: TA 
effect on the block graphics 
on the upper case J and Z 


Supp 1. 


Enlamed characters 
By John ten Velde 


This program allows the user to create 
а “notice board’’ containing a message 
in enlarged characters. It could be used 
for advertising purposes ог as а teaching 
aid. 

The program consists of three main 
parts: the character information section 
(lines 33 to 90); the input section which 
allows the user to enter a message of up 
to 5 lines of 15 characters (lines 100 to 
290); and the outout section which 
displays the message on the screen. 

In the character information section, 


64 - BITS & BYTES — December 1984 


n character is ДЕДЫ D; a 27 


7260 FOR X= 8 TO 14 Ауган . n. 


7270 BCX Y= тына НК 
2 288 NEAT X^, - 3 


` 360 MODE а» 


. 516 FOR X=8 TO: 44 12 
520 В =B(X,Y) 7 Y: 


.598 FOR Ү8-8 TO 8 


‚620 IFñ>=M THENSET(X*8*6-N, Уж 1 1+8): д =й-М 


7660 NEXT X 


PE ле дели e мәт 4 tg tn ntt 


—G tS gn 


code which represents the pixels 
turned on in a 7 x 9 pixel grid. The 
digits are made up of nine three 
groups, each group representing one 

of the.character in binary form. The 
character information can be altered % 
produce characters chosen by the user 
required. ~ 


< !00909909990999990399099009 999 
5 "299 ENLARGED CHARACTERS 992 
E бы ыы ыы 


18 POKE 30744,1:CLEAR1500:DIMA$(50):CLS 
28 DIMBCIS, 5) 

33 ñ$(33)="008008008008008008008000008"' ! 
42 8$(42)2"073973042028127029042073073"' * 
48 8%(48)<"028054065065065065865024028"70 
49 ñ$(49)="008024040008008008008008028"']! 
58 8$(50)-"02663406500200406€0616032127?* 2 
51 8$(5122"028034065002012062065034029"' 3 
52 8$(52)-"'0046012020036127604684064004 "" 4 
53 8%(532-"12278640640641240020010802124"75 
54 А4054) ="028034065064092098065034028"'6 
55 43055) =“ 127001092004808915032064064"'7 
56 n$(56)-"0280340650354028034065034028" '8 | | 
57 8$(57)-"028034065035029001065934028"'9 
56 Ағ(56)-"000000028025000025025800000077: 
59 0$(59)-"000060028028080029029212024"' ; 
65 8%(652-”806028054065127865055065065%78 
56 8$(66)2"1240668065066124066065865124"' B 
67 R$(€7)-z"026634065664064064065034028"' C 
68 84(62)-"124й66065065065055й55865124"”0 
69 8%(69)-"127864064064124064064064127"7Е 
78 8з%(70)-"1278654064064124064054064064"7- 
71 8%(712-"028054865064071065085054028"76 
72 8%(72)5"8550650650855127865065965865"”Н 
73 af£(73)-"026606008605608666008268029"*' 1 
74 #$(74)="08109108190198 1081065934823" ' J 
75 8%(257):"065086605807208801040520560657К 
76 8%(76)-"86406406408540648654064864127"71 
7? 8%(77)5"865899025075065065865065065"”7М 
78 А8(78)-"й65097081073069857065865065"”8 
79 8%(79)-"08280340650865085665065854028%”0 
80 85(80)-"124866865866124864264054064"”Р 
81 8%(612-"028054065065065065069054029"70 
82 8%(82)-"12406606586612409728788650865"7”8 
83 8%(832-"028854065032026002065054028%75 
84 0$(84)-"1276080080286053053508008000"' T 
85 А%(85)5"065065865065065065065034028"7) 
86 81(86)-"06506580650340340200200888898"' U 
87 8%(827)-"0650650650650650750931190834%7И 
88 8%(88)-"065065034020005020034855055"7Х 
89 А%(89)-"0865065054020006008002008065"”Уу 
98 83(90)-"1278018082004008816032054127"72 
108 FOR Х-28887 TO 25225 :РОКЕ Х, 96: НЕХТ 
20 FOR Х-28859 TO 28967 STEPS2:POKE 4,96 


НЕХТ . 
Ра отрар ТО 28983 STEP32:POKE Х,96 
й NEX 


РОК Х=28999 TQ 29015" :POKE Х, 96: НЕХТ 
180 FÜR Y=168 TO 296 STEP 32 ' 

196 FOR X=ü TO 14 

208 Я$=1НКЕУ$ : АЗ =1НКЕУ$ 

216 IF A$="" THEN 200 

220 PRINTSCY+X) AS; 

225 1Е INKEW$< 2“ТНЕН225 

236 NEXTX 

248 IF INKEY$<>""THEN248 ELSE НЕХТ V 
259 FOR Y= 8 TO 4 


299 MEXT: V: i 7 


500 FOR V-0.10 4. i; 


550 IFBK32THENB-B +64. 
568 IFB- 32 THEN 660 
570 Б%-й%(8) M 


590 ñ= VALCMIDTCBS, (00+1)ж3- 2,» 
600 FOR Н-6 TO 0 STEP —-1^ 
610 M=2*N 


630 NEXT H 


646 НЕХТ YO 


678 NEXTY 

680 1$=1НКЕУ$: TE=INKEVS 

699 IF T$="" THEN 686 

700 IF CeZ THEN 653 ELSE C= 2 
218 COLOR С. 
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Basic 
understanding 


І have come to the conclu- 
sion that although people 
want more software written 
for their particular micro, 
nobody is prepared to give 
away any secrets, so that 
more up-and-coming pro- 
grammers can have a better 
understanding of the way a 
certain problem is solved by 
a computer. 

In a previous edition of 
APC, in the Communications 
section, there was a cry of 
despair from a VZ-200 user 
for a word processor type 
program for the VZ-200. On 
reading through the Pro- 
grams section of a few APC 
issues, it is easy to see why 
nobody (novices) can write 
programs for the VZ-200. It 
appears that those who 
know the deep dark secrets 
of programming would like 
to keep these secrets to 
themselves. 

All of the programs that | 
have seen in APC for the ‹ 
VZ-200, have had no com- 
ments (apart from those 
with the authors name etc) 
in them. It doesn't take long 
to add a few comments into 
a program just to let the 
reader know what the pro- 
gram is doing. For example 
the following code is from a 
Basic program: 


218 


Wouldn't it be a lot easier 
to see what the program is 
doing (apart from spending 
hours tracing through it) if it 
were presented in the 
following form: 


why this is a good practice 
to get in to. 

There is no need to go 
overboard with the com- 
ments, but imagine a begin- 
ner in this wondrous field of 


198 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


199 REM Xxx 


ADDING A RECORD 


210 CLS:PRINT .......е.4.с. 


260 РЕМ Хх 


. END OF ADDITION 


xxx 


xxx 


261 REM XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXYXXXXXX 


399 REM +++ 
499 CLS: INPUT 


At least from there, the 
reader can see what the par- 
ticular section of a program 
is doing; then if they want to 
go into any more detail, they 
can use their Basic reference 
manual. It also helps if there 
is a list of the variables (in 
REM statements), and what 
each variable is used for, at 


the beginning of the pro- 


gram. Another tip is to use 
variables that represent 
something. In the example, 
М0% is for NUmeric 
storage, NR96 is for Number 
of Records, L1 is for a Loop 
(there are three of these in 
the program, 11... ІЗ), 
and RC$ stands for Record 
Contents. 

Some readers may think 
this all a gross waste of time 
and effort, but if their little 
micros ever acquire the 
capability of running other 
high level languages (eg, 
Pascal, Cobol), they will see 


CLS:PRINT"RECORD NUMBER: " $; МР%+ 1: PRINT 


CHANGING A RECORD 


ее ее КОС)» 


comnuting, sitting there with 
his/her reference manual, 
and trying to figure what the 
heck is going on in the first 
lot of code or what part of 
the program it is. | have 
visions of a 12/13 year old 
in tears, ripping up the 
manual, pulling the plug on 
the computer and vowing 
never to use it again. 

If we want this industry to 
grow, lets share the secrets 
around so that the up and 
coming youngsters have the 
opportunity of learning from 
things that we had to find 
out for ourselves. 


S Hobson 


220 FORL1=1TONR%:PRINTRN$*$(L1,1); ІМРОТКСФ(11,0М4Ғ%%1) 
250 IF(LI=1) AND(RCS(LIL,NF%+1)="") THENRETURM 

240 МЕХТ:МЕ%-МЕ%»%1:ІҒМЕ%»<5ӘТНЕМ20О 
250 PRINT"DATABASE FULL!!!*:FORL1-1TO199: NEXT: RETURN 
400 CLS: ІМРОТ "ИНАТ RECORD" j NU% 
416 IF (NU%ONF%) ОК(М0%< 2) ТНЕМ400 
429 IFNU*-OTHENRETURN 


459 


ылы ote E e bv 
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VZ-200 into 
puberty 


Steve Olney has produced a 
machine code utility which 
“re-enables all 23 hidden 

- commands resident in the 
VZ Basic ROM”. Apparently 
this means VZ-200 will then 
have most of the Level || 
TRS-80 commands and a 
couple more. It'll set you 
back a moderate $15. Write 
to Steve Olney, 200 Terrace 
Road, North Richmond, 
2754. 
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Grey Line 


As the earth spins on its axis, there is 
always one hemisphere in sunlight and one 
in shadow. The junction between these two 
hemispheres - day and night - is a great 
circle which is called the "grey line". A zone 
of undefined width along the grey line is 
called they "grey zone”. The grey zone is of 
interest largely because here there is a fairly 
abrupt change in the ionosphere. For exam- 
ple, the D-layer disappears almost com- 
pletely at sunset, bringing with its passing 
the rapid build-up of MF DX; the opposite is 
the case at sunrise. 

There is also the well known property that 
efficient communication is possible between 
stations both lying in the grey zone. Thus it is 
of interest to amateurs to know where the 
grey zone is at any time and to exploit its 
properties where possible. 

The easiest method of finding the grey line 
is to buy a radio globe of the world such s 
the "Grey Line Radio Globe" reviewed in 
Amateur Radio Action, Volume 5, Number 
11, or to construct one from an ordinary 
school kids globe as described in Practica! 
Wireless, March 1984. 

A more difficult method, but a more accu- 
rate one, is to calculate the grey line. It is a 
relatively straight-forward matter to calcu- 
late for any date the bearings of the grey line 
as it passes any location. For this is a calcu- 
lator or set of mathematical tables is suffi- 
cient. To calculate vvhen the grey line 
passes a location — sunrise and sunset 
times — a moderately sophisticated calcu- 
lator is still sufficient. However, in the long 
sequence of calculations involved, a home 
computer is not only quicker and easier, it is 
likely to be more accurate. Because of this, 
the latter part of the article is directed 
towards home computers, with a reference 
for further reading for those with calculators , 
only. 


BEARINGS OF THE GREY LINE 


In Figure 1, NAS is the meridian through 
location А on the grey line. О is the subsolar 
point, ie the place on the earth's surface 
which lies in a direct line between the centre 
of the earth (0) and the sun. Any great circle 
through O intersects the grey line at right 
angles. QBN is that part of one of these great 
circles which passes through the north geo- 
graphic pole. 

What we want to find is angle A and from 
it the bearings of the grey line, X, and (180 4- 
X) degrees. These will be the p earings at 
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sunrise; at sunset the bearings will be (360 
- Х) and (180 - Х) degrees. 

For spherical triangle NAB, 
sin A/ sin NB = sin B/ sin NA. 

NA and NB, although sides of the triangle, 
are expressed as the angles these sides sub- 
tend at the centre of the earth. 

Noting that B = ѕіп90 = 1, that NA is (90 
-latitude A) if we set north latitudes positive 
and south latitudes negative, and setting NB = 
d, we get 
sin A = sn d/sin (90 —lat A) 

= sin d / cos (lat A) 
Referring again to Figure 1, we can see that 
d is the same as ООЕ, which is called the 
sun's declination. 

We know latitude. The only unknown is 
declination. VK2KII іп ARA Volume 6, 
Number 9, page 33 gives a rough formula 
which is probably good enough for most pur- 
poses. That formula (modified) isd = -23.4 
sin (0.9856 D) where D is the number of 
days after 21st September. The value 
0.9856 D is a value in degrees, not radians. 
The declination, d, clearly ranges in value 
from —23.4 to 23.4 degrees. 

Note that this is the negative of VK2KII s 
formula to ensure that the usual sign con- 
ventions apply, ie northern declinations posi- 
tive and southern declinations negative. 
VK2KII has it the other way around. 

Since cos (lat A) is positive regardless of 
the sign of the latitude, A takes on the sign 
of declination. That is, south declinations 
such as shown іп Figure 1, produce negative 


Figure 3 


Lquatorial 


Figure 2 


Plane 


Position 
of sun 


Horizon 
at A 


values for A and north declinations produce 
positive values for A. To get the bearing X, 
the rule is to set X equal to (360 -- А) 
degrees and subtract 360 if this exceeds 
360 degrees. This leads to the two sunrise 
bearings X and (X + 180) degress and the two 
sunset bearings (360 — X) апа (180 — X) 
degrees. If any of these exceeds 360 de- 
grees, subtract 360 degrees. 

For example, on 3rd May, 0—224 and 
hence d = 15.3 degrees. At latitude —35 
degrees, say, А- 18.7 degrees and X - 
341.3 degrees. The sunrise bearings of the 
grey line are 341.3 and 161.3 degrees; the 
sunset bearings are 18.7 and 198.7 degrees 


Sunrise and Sunset Times 

It is possible to look at a daily newspaper 
for the times of sunrise and sunset. They 
don't vary much from day to day, so today's 
times are probably good enough for tomor- 
row. The information above is, in these cir- 
cumstances, sufficient for day to day oper- 
ation. 

However, if you don't buy a daily news- 
paper, have poor library services, or you 
want to know, for example, when the grey 
line will pass the operators in your net across 
the Tasman, you may want to calculate sun- 
rise and sunset times. 

Program GREYLINE described and listed 
below carries out these calculations accurate 
to a few minutes. The rest of this section is a 
description of the procedure followed and 
can be omitted on first reading. Peer Ouffet- 
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Smith in iie excellent “Practical Astronomy 
with your Calculator” referenced in full 
below, has more detail and the interested 
reader is strongly recommended to get hold 
of a copy and read the relevant sections. 


Sunrise and sunset times depend оп 
where the sun is іп relation to the earth апа 
on the location of the point of observation. 
To find out where the sun is on any date, it is 
necessary to know how the position of the 
sun is described by astronomers. 


There are two co-ordinate systems used: 
equatorial co-ordinates and ecliptic co-or- 
dinates. 


Equatorial co-ordinates are based on the 
equatorial plane which is the projection of 
the plane cutting the earth at the equator. 
Ecliptic co-ordinates are based on the eclip- 
tic which is the plane in which the earth and 
sun move. Figure 2 shows both these planes 
which are at an angle of about 23.4 degrees 
to one another. 


The planes meet in a line which passes 
through the earth. One direction along this 
line from earth is used as a reference direct- 
ion for both co-ordinate systems. It is called 
the vernal equinox because the sun lies in 
this direction from earth on 21st March in 
the northern spring. 


In each co-ordinate system the plane and 
reference direction are used in a manner 
analagous to the way the plane of the equa- 


\ 


\ Vernal tquinox 
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tor and the line from the earth' s centre to the 
Greenwich meridian at the equator are used 
for our usual geographic co-ordinate system. 

Ecliptic longitude (lambda) begins at 0 
degrees at the vernal equinox and increases 
in an anti-clockwise direction in the ecliptic 
plane to 360 degrees back at the vernal 
equinox again. The ecliptic latitude (beta) 
begins at O degrees and increases- to 90 
degrees above and decreases to — 90 
degrees below the ecliptic. The ecliptic lati- 
tude of the sun is zero always of course. 

In equatorial co-ordinates the longitude, 
called right ascension (alpha) is based on the 
vernal equinox in a way exactly analagous to 
that for ecliptic longitude. The angle above 
or below the equatorial plane is the declina- 
tion (delta) and is positive above the plane 
and negative below the plane. 

Astronomers have tabulations of various 
data, including the position of the sun at 
various times. The position of the sun is 
given by its ecliptic longitude. Following Duf- 
fett-Smith | use the ecliptic longitude at the 
beginning of 1980 and from this calculate 
the sun's ecliptic longitude at any time there- 
after as: 

M + 360/Pl.e.sinM + WG 
where М = (360/365.2422). 4 + EG-WG 
апа О = the number of days since the begin- 

ning of 1980 
EG = 278.83354 degrees. The ecliptic Іопді- 

tude at the start of 1980. 
= 282.596403. The ecliptic longitude at 


Earth's 
Orbit 


\ 
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perigee, the point where the sun and 


earth are closest. 

= 0.016718. The eccentricity of the sun- 

earth orbit. 

Because the sun is moving relatively 
rapidly in relation to the earth, the program 
calculates the sun's position at the two mid- 
nights straddling the day of interest. It later 
uses these to get weighted average and 
hence more accurate sunrise and sunset 
times. 

From the ecliptic co-ordinates, convert to 
equatorial co-ordinates thus: 

Right ascension = Тап"! (sin lambda.cos 
EP/cos lambda) 

‘Declination = зіп-' (sin EP.sin lambda) 
where EP is the angle between the ecliptic 
and the equatorial plane (23.441884 de- 
grees). 

Declination gives (i) the bearings of the 
grey line — as shown above, (ii) whether the 
sun rises and sets, and (iii) for how long the 
sun remains above the horizon if it rises and 
sets. These last two can be seen by refer- 
ence to Figure 3. Consider an observer (A) at 
south latitude L degrees. Here L is treated as 
the unsigned latitude, ie the absolute value 
of latitude. If the declination of the sun is 
more than (90-L) degrees north, the observer 
at A will never see it. If it has a declination of 
more than (90-1) degrees south, it will 
always be above the horizon. If the sun's 
declination lies in the range (90-1) degrees 
north to (90-L) degrees south, the sun rises 
and sets. ñ 

The length of time it is above the horizon 
will depend on the latitude of the observer 
and the declination of the sun relative to (90- 
L) north and (90-1) south. Algebraically this 


time is 2H hours where: 
Н = (cos ~ (ғап Latitude.tan delta))/ 


15. 

The other equatorial co-ordinate, the right 
ascension, leads to the precise period within 
the day that the sun is above the horizon. 
There are several steps. Right ascension 
gives local sidereal time (see below) of sun- 
rise and sunset thus: 

Rising time = 24 + alpha —H 
Setting time = alpha + H. 

To understand sidereal times, refer to 
Figure 4. On 21st March, the sun is at the 
vernal equinox to an observer on the meri- 
dian through V and it is noon. 23 hours 56 
minutes later the vernal equinox is again 
over the meridian at М. One sidereal (“of the 
stars”) day has passed. Four minutes later 
again, the sun is over the local meridian at V 
and one solar day has passed, It is noon 
again. Because the sidereal day is 23 hours 
56 minutes long, sidereal noon falls four 
minutes earlier each day than the day before. 
There are thus approximately 366 sidereal 
days in the 365 solar day year and this is 
because the earth rotates 366 times in the 
course of one year not 365. A little ex- 
perimentation with a couple of oranges or 

: tennis balls will show this is the case. 

The sidereal rising and setting times need 

to be converted into UTC thus: 


—21 


eof E 


should be referred to the author, Please in- 
clude a stamped self addressed envelope 
and as many details as possible of the prob- 
lem. Suggestions for improvements and 
notification of errors will be gratefully re- 
ceived. 
Arrays 
B(I) The number of days from the beainning 
of 1980 to the beginning of (1979+ 1) 
C(1,J) Right ascension (J = 1) and declination 
(J=2) of the sun at the two midnights 
{|= 1.2) straddling the day of interest. 
E(I,J) Number of days in each month (l= 1 to 
12) for ordinary (J = 1) and leap 
years (J = 2) 
F(1,J) Bearings of rising (J = 1) and setting 
(J = 2) sun based on two midnights 
(| = 1,2) straddling day of interest. 
L(I) Ecliptic longitude of the sun at the two 
midnights (l= 1,2). +. 
Q(I,J) Latitude (| = 1) andlongitude (| = 2) of 
QTH in degrees (J = 1) and minutes 
(9 =2); 
Later in program latitude in decimal 
form in Q(1,1), longitude in Q(2, 1). 
S(I,J) Local sidereal times of sunrise (J = 1) 
and sunset (J = 2) based on the two 
midnights ( = 1,2). 


Greenwich sidereal, and UTC times. 


Test Data 


The following locations, dates, times and 
bearings may be useful as test data. 


UTC = (t - longitudo/15 - d.A + 

B). 0.99727 

The expression in the brackets must be 
made to lie in the range O to 24 hours, by 
addition or subtraction of multiples of 24, 
before the multiplication takes place. In the 
equation, t is local sidereal time, d is the 
number of days since the beginningof 1980, 
A - 0.0657098, and B is a constant which is 
different for each year. The program uses 
В - 17.37 which is near enough for 1985 
апа 1986. At around 2400 UTC, this 
formula does not convert accurately. 
However, sunrise and sunset times іп 
Oceania should not be affected. 


The Program 


The program asks for the location latitude 
and longitude and the date in which you are 
interested. Latitude and longitude need to be 
signed. North latitudes are positive; south 
latitudes are negative. West longitudes are 
negative; east longitudes are positive. Only 
sign the degrees, not the minutes. Illegal lati- 
tudes and longitudes are signalled and the 
user asked to re-input. The date is input as 
DD,MM,YY, eg 22nd April 1985 1522.04,85 
or 22,4,85. Dates must be in the range 1,1,- 
80 to 31:12:99. 

Output form is shown in Figure 5, Sunrise 
and sunset times are accurate to within a 
few minutes. 

The program runs m the un-enlarged 
VZ200. Only minor translation should be 
necessary for other machines, Problems 


— MM À—— M oa ae 
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А ЗЫН 


Canherra Adelaide 


194.6" 


Begin with Section 45, Sunrise and Sunset. 


14.6? 1.49 The analogue methods are in ARA Volume 
Latitude —35917' --34956” 5, Number 11 and Practical Wireless March 
Longitude 149913: 138936: 1984, and some simple sunrise апа sunset 
Date 22.4.84 24.3.84 References .calculations are in lan УК2К/!% article т 
“Sunrise (UTC) 2031 2050 The basic reference is "Practical Astro- АВА Volume 6, Number 9. The Shortwave 
Bearings 345.4° 358.6° nomy with Your Calculator’, by Peter Duf- Propagation Handbook also addresses the 
165.4° 178.6° fett-Smith, 2nd Edition, Cambridge Univer- issue of propagation along the grey line 
Sunset (UTC) 0728 0849 sity Press, 1982; available in paperback. (Section 6.8). 
iQ DIM BC20),C(2,9),E(12,2),F(2,2),D(2); 390 IF MM<1 OR MM212 THEN 449 
Q(2,2),9(2,2),T(2) 400 LY=1 
20 DIM 5%(2),Т7%(2) 410 Y=YY-INT(YY/4)*4 
39 FOR I-1 TO 29 420 IF Y=@ THEN LY-2 
4) READ B(I) 430 IF DD?-1 AND DD<=E(MM,LY) THEN 455 
99 NEXT 440 PRINT "ILLEGAL DATE: TRY AGAIN" 
60 D шаа. 459 GOTO 369 
70 DATA 3653,4018,4383,4749,5114,5479,5845, о 
6210,6375, 6949 460 FOR Ізі TO MM-1 
80 FOR 1=1 ТО 12 470 D=D+FE(I,LY) 
90 READ Е(І,1) 480 МЕХТ 
109” E(1,2)=E(1,1) 49)  M-369/365.2422*D«EG-WG 
110 NEXT 500  V-M«4369/PI*EC*SIN(M/DR) 
120 DATA 31,28,31,30,31,30,31,31,99,91,99,91 " 919 L(1)=V+WG 
130 E(2,2)-29 520 IF (17-0 THEN 559 
140 ЕС=278. 83354 530 L(1)=L(1)+369 
150 WG=282.596493 54) СОТО 529 
160 PI=3.1415927 550 IF L(1)<360 THEN 570 
170 ЕС-0.016718 555 L(1)=L(1)-369 
18) DR=57.29578 569 GOTO 550 
199 EP=23.441884 570 L(2)=L(1)+9.985647 
230 FL=Q 590 IF L(2)»2369 THEN L(2)2L(2)-369 
291 “PRINT "LATITÜDE?- СТО) Bros, М" — 0019. FOR TSL TOL2 
240 INPUT Q(1,1),Q(1,2) 020 Y=SIN(LC1)/DR)*COS(EP/DR ) 
259 PRINT "LONGITUDE? (SIGNED) DEGS, MINS" 630 X=COS(L(1)/DR) 
260 INPUT Q(2,1),Q(2,2) 640 IF Х<>@ THEN 680 
279 FOR I=1 TO 2 050 LF Y»Q THEN С(1,1)-90 
280 7-90%(1-1)%90 560 IF Ү40 THEN C(1,1)2279 
299 IF ABS(Q(I,1))€-7 THEN 339 670 GOTO 779 
309 PRINT "ERROR IN LAT/LONG",Q(1,1),"DEG 68) IF Ү4<>0 THEN 729 
REES",Q(I,2), "MINUTES" 690 IF Х>0 THEN С(1,1)-0 
319 PRINT "TRY AGAIN" 700 IF Х<0 THEN С(1,1)-180 
329 GOTO 220 710 GOTO 770 
330 IF 0(1,2)<0 OR 0(1,2)>-60 THEN 399 729 C(1,1)=ATN(Y/X)*DR 
340 Q(I,1)-Q(I,1)*SGN(QCI, 1))*Q( I, 2)/69 790 IF Y29 THEN 759 
350 NEXT 749 C(I,1)=C(1,1)+189 
360 PRINT "DATE? DD,MM, YY" 750 IF X*Y2Q THEN 770 
379 INPUT DD,MM, YY 76) C(1,1)=C(1,1)+189 
389 IF ҮҮ<80 OR ҮҮ>99 THEN 440 770 “ССТ; Í)-CCE1)/15 
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970 
072 
974 
989 
999 


1000 
1002 
1004 
1010 
“1012 
1014 
1020 
1030 
1040 
1959 
1969 
1979 
1080 


22- ЕУ 


GOSUB 1390 
C(1,2)=AS*DR 


X-SIN(C(I,2)/DR)/COS(Q(1,1)/DR) 


IF X2-1 AND Х<1 THEN 822 
FL=1 

GOTO 1262 

22-Х 

GOSUD 1370 

F(1,1)=AC*DR 
F(1,2)=369-F( 1,1) 


X--TAN(QC1,1)/DR)* TAN(CCI,2)/DR) 


IF X&-1 OH X21 THEN 819 
ZZ-X 

GOSUB 1379 

H-AC*DR/15 

Т(1)=24+С(1,1)-Н 
T(2)=C(1,1)+H 

FOR J=1 TO 2 

IF T(J)>24 THEN T(J)=T(J)-24 


S(I,J)=T(J) 
NEXT J 
NEXT I 


FOR 41-1 TO 2 


T(J)224.07*8(1,J)/(24.07*8(1,2)-8(2,J)) 


NEXT 
DE=(C(1,2)+C(2,2))/2 
Z/¿=SIN(Q(1.1)/DR)/COS(DIE/DIL) 
GOSUD 1370 

PS=AC*DR 

Х-0.835608 
ZZ=TAN(X/DR)/TAN(PS/DR) 
GOSUB 1390 

DA=AS*DR 
ZZ=SIN(X/DR)/SIN(PS/DR) 
GOSUB 1390 

Y=AS*DR 
DT=240*Y/COS(DE/DR)/3600 
FOR 2-1 TO 2 
T(J)2T(J)*(-1)*J*DT 

FOR I-1 TO 2 
F(I,J)SF(I,J)*(-1)tJ*DA 
NEXT 

T(J)e T(J)-Q(2., 1)/15 
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1159 DX- pin л 17.37 
1170 T(J)=T(J)-DX 

1181 IF T(J)>=0 THEN 1184 
1182 T(J)-T(J)424 


1183 GOTO 1181 
.IF. T(J)<24 THEN 1190 

1185 T(J)-T(J)-24 

1186 СОТО 1184 

1199 T(J)=T(J)*9.99727 

1192 S%(J)=INT(T(J)) 

1193 T%(J)=(T(J)-S%(J))*60+0.5 

1299 NEXT J 

1219 FOR J=1 TO 2 

1220 ¥F(1,J)=(F(1,J)+F(2,J))/2-99 

1230 F(2,J)-F(1,J)*189 

1240 IF F(1,J)<Q@ THEN F(1,J)=369+F(1,J) 
1259 IF F(2,J)2369 THEN F(2,J)=F(2,J)-369 
1269 NEXT 

1262 CLS 


1265  PRINTGQ' eee RRR H HEE "GREG. BAKER, 
MONGARLOWE, 2622" 


1266 PRINT "GREYLINE CALCULATOR RESULTS:", 
DO OK OK KOR KOK kk kkk KÓ 


1270 PRINT "LATITUDE",Q(1,1)," LONGITUDE", 
QCZ,1) 


1943 ЭРМЕ DATES Арына «MM; YY 

1272 IF FL-1 THEN 1290 | 

1273. PRINT “SUNRISE”, р қалы PRECEJ SUTE 
"BEARINGS: ; 


1274 PRINT USING ИЕТ 
1275 PRINT USING "ZAZg28258.48'";F(2,1) 


1276 PRINT "SUNSET" Du rM CL UE 
"BEARINGS: 


1277 PRINT USING Е 
1278 PRINT USING "######.#";F(2,2) 


128)  PRINT,,,"ANOTHER ОТН OR DATE?", "ТҮРЕ 
'Y' TO CONTINUE" 


1282 INPUT Y$ 

1284 IF Y$<>"Y" THEN 1369 ELSE 230 

1290 PRINT "SUN DOES NOT RISE OR SET" 
1291 PRINT "HENCE THERE IS NO GREYLINE" 
1292 GOTO 1289 

1360 END 

1370  AC--ATN(ZZ/SQR(1-ZZ*ZZ) ) *PI/2 

1380 RETURN 

1390  AS-ATN(ZZ/SQR(1-ZZ*Z2Z)) 

1499 RETURN 


£s. 


VZ-200 BASIC PROGRAM STORAGE & LINE 


RENUMBERING 


GRAHAM MARSDEN 


The VZ-200 does not have aRENUMBER 
command so trying to modify a program with 
insufficient vacant line numbers is not a 
welcome task. This program enables the line 
numbers of a program to be reset using any 
start number and increment providing they 
meet certain conditons. 

In order to understand the operation of the 
program it is necessary to understand how a 
BASIC program listing and its line numbers 
are stored in memory. 

Each line of program is formated as КЕБЕ 


- The first two bytes of һе sequence hold the 
address, in two byte form, of the first bvte 
of the sequence for the next program line. 
i.e. the location holding the R above is in 
location P+256*Q 

- The third and fourth bytes hold the line 
number. 

i.e. in this case the line number will be 
L*256*l 

- Then the contents of the program line 
follow, terminating with a byte containing 
the value zero. 


For example suppose the line:- 

300 PRINT"":GOTO400 
was stored starting at address 38420. This 
would be the contents of locations 38420 - 
38433 


Note that characters (including line 
numbers used within a program line after 


GOTO or GOSUB) are stored as their ASC 


codes. 

: "Operators" like PRINT, GOTO, etc have 
their own single byte codes which represent 
the operation. The program looks for the 
codes for GOTO and GOSUB (amongst 
others- see explanation of program 
operation) in order to find the locations of 
line numbers within program lines. The 
codes for various operations can be 
determined by putting in a line. 


MEMORY LOCATIONS. 


using the operation in question, (ensure it 
has the lowest of all line numbers) and then 
type іп - 


FORZ = 31469 TO 31469+N:PRINT 
PEEK(Z);:NEXTZ 

where N is the number of memory positions 
that you wish to see codes for. 31469 is the 
position in memory of the first item of the first 
BASIC program line. i.e. the one immediately 


after the line number bytes. The BASIC 


Program listing normally starts at 31465 
unless moved - but that is another story. 

Having understoodhowa BASIC program 
is stored it is possible to make changes to it 
without having to edit it on screen. 

One thing that can be done is to change all 
the line numbers so they follow a constant 
incremant. 

Here is a program to do just that:- 


How to use this program:- 


1) Type in and CSAVE as listed. 
2) Before keying in your next program load 
the renumbering program from tape. 


3) Key in your program with particular 
attention to the following. 
a) Line numbers used and called 
must be in the range 1-9999 
b) All line numbers or subroutines 
quoted within the text of a program line 
must be preceeded by GOTO or GOSUB 
and be right justified in a 4 space field. 
This means that 5 digit numbers if used 
will be seen only as the first four digits 
from the left and therefore will not be 
found as an existing number. 


ie. IF ... THEN20ELSE325 must be 
entered as 

IF... THENGOTO 20ELSEGOTO 325 
(the line number 20 is preceeded by two 
spaces the number 325 byone, tocreatea 


01000000 


-“------Опе line of 


ргоргат —— 


> 
— 


5 


— 


4 space field for the number - This allows 
say atwo digit number to be reassigned as 
a three or four digit number) 


4 space field for the number - This allows 
say atwodigit number to be reassigned as 
a three or four digit number) 

c) Line 10010:- 

Dimmension М%() greater than the 
number of line numbers in the section of 
program to be renumbered - А generous 
guess will do unless you are short of 
memory. 

г Set the value of variable S to 
create a "safe zone" which the 
renumbering program will not alter. 
Normally this value will be 10000 (the first 
line number of the renumbering program 
itself) or it may be less if you wish to create 
a "gap" in line numbers between two 
sections of program - say between a main 
operating section and another section 
containing subroutines or Data lines. 
Remember that nothingin the “safe zone" 
is altered toa GOTO or GOSUB calling a 
lower section renumbered line would 
have to be changed separately. 

Always CSAVE BEFORE running this 
program. lf for any reason the 
renumberingis not totally successfulthen 
what remains of your program will 
probably be useless as part will be 
renumbered and part will not - equivalent 
to a population explosion of bags. 

Key in RUN10000 

(If the result is a BAD SUBSCRIPT 
ERROR IN 10090 then increase the size of 
N%() in line 10010 - reloading will not be 
necessary as nothing has been altered 
yet.) 

Enter 1st line number and increment on 
prompt. 

When the renumbering is complete the 
cursor will return and the computer will 
be in READY mode (The time to execute 


- OO 


PEE lines 
| 


38420 38421 38422 38423 38424 38425 38426 38427 


RONDA ICON 


138434 J 


Print 


38428 38429 38430 38431 38432 38433 38434 38435 


€) OOO OOOO 


1 
4 
1 
Сосо Next Line —— 
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ot 3. 


ША about 1% seconds рег program 
іпе 

Make апу changes as indicated Бу 
messages printed during execution. (You 
сап BREAK the execution to сору notes 
from the screen ií it gets too fulland then 
enter CONT to continue). 

9) Probably a good idea to CSAVE again 


8 


— 


10) Thoroughly test the renumbered section 
of the program - any problems - reload 
that saved at (4) and reRUN 10000 - it is 
not unknown for gremlins to be about for 
one renumbering run but absent for the 
next. 


Program Operation 
LINES 10000-10090 


The line numbers are stored in array №№. 

Variable M is initialised to 31465 (BASIC 
Program start) and moved to the 1st byte of 
each program line by the calculation based 
on the values of P and Q the "start - position 
of next line" pointers.. While M holds the 
decimal value of the memory positions the 
value of variable А is used in the PEEK'S. 
This is because PEEK and POKE will only 
work for the range -32768 А 32767 values for 
memory above 32767 must have 65536 
subtracted before PEEK or POKE. 
Line 10070 ends execution if P and Q both 
are zero - this occurs when the end-of- 
program byte sequence is found. (Two zero 
bytes then a 4 byte. 


LINES 10100-10120 


The first line number and increment are 
entered and edited so that they are both 
positive integers greater than zero. At 10120 
a check is made as to whether the new 
numbering reach into the "safe zone" of line 
numbers. 


LINE 10130 


Reinitialise M back to program start and 
variable c to 1, C is the number oí the line ie 
151 2nd 3rd etc. 


LINES 10140-10180 


Calculate new line numberand POKE new 
line number to the appropriate bytes. M is 
now at the first byte of the line's storage 
sequence. The execution ends at 10160 ií the 
"safe zone" is found. 


LINES 10190-10210 


Calculate R the memory position of the 
start of the next line. 


LINES 10220-10290 


This section searches through the 
program line contents looking at the value in 
each byte: 


0: - end of line - go to next line 

4: - Quote marks in a PRINT or INPUT 
statement - ignore 

136: - DATA - ignore whole line 

147: - REM - ignore whole line 

141: - GOTO or 145 GOSUB: - alter line 
number called. 


LINES 10300-10380 


M set to the units column position of the 
number field area. The string variable 0$ is 
loaded with the charactersof thelinenumber 
field, and variable 0 is given the value of the 


10000 › "02-2080 LINE RENUMBERING G.A MAR 
SDEN 1984 

10010 DIN №(С200) :M=31465:C=1 :S=10000? "Е 
IRST LINE OF SAFE ZONE" 

10020 A=M:IFA>32767 THEN A=A-65536 

10030 Р=РЕЕКСА? :А=М+1 :ІЕ ñ>32262 THEN A= 
А-65536 Р 

10040 Q=PEEKCA) :а=М+2: ҒА) 32767 THEN A=A 
-65536 "e 

10050 L=PEEK(ñ):ñ=H+3:IF A>32767 THEN A= 
а-65536 

10060 I-PEEKCA) 

10020 IF P=@ANDQ=@THEN PRINT "SAFE LINE 
PAST END  ":END 

10080 ІР +256%ж1>=5ТНЕМО=С-1 :PRINTD ; "LINE 
S FOLIND" :GOTO10100 

10090 Nx(C)2L*256XI :М=Р+256Ж0 :С=С+1 :GOTO 
10020 

10100 INPUT"IST LINE NO.";L$:F-INTCUALCL 
$)):IF Ғ<1 THENGOTO10100 

10110 INPUT" INCREMENT" ; I$: J-INTCUALCIS)) 
:IFJ<1THENJ=1 

18120 IF F+tJ*CC-1)>=STHEN PRINT" VALUES T 
00 LARGE" :607010100 

10130 M=31465:C=1 

10140 A=MN+2:IFA>32767 THENA=A- -65536 

10150 B=N+3:IF B>32767A=A-65536 

10160 IF PEEKCA)*256XPEEKCBJ»-STHEN PRIN 
T"FINISHED" :END 

10120 W=F+(C-1)xJ | 

10180 POKEA, Ш-256%1МТ(ы/256) :РОКЕВ, ІМТСЫ 
1256) 

10190 A=M:IFA>32767 THENA=A-65536 

10200 B-M-1:1FB»32262 THENB=B-65536 
10210 R-PEEK(A)*256XPEEKCB) 

10220 М-М%4:Т-і 

10230 A=M:IF A>32767 THEN A=A-65536 
10240 IF PEEKCA)=1360R РЕЕКСА)=147 THEN 
M=R :С=С+1 :607010140 

10250 IFPEEK(ñ)=1450R PEEKCAJ=141 THEN б 
07010300 

10260 IF РЕЕКСА) =34ТНЕМ Т=ТХ-1 

10220 IF РЕЕКСА)=0 THEN М-Б:С-Сж1:007010 
140 

10280 М=М+] 

10290 IFT<O THENGOTO10260ELSE GOTO10230 
10300 М=М+4 

10310 0$="" 

10320 FORG-3TOOSTEP-1 

10330 A=M-G: IFA> 32767 THENA=A-65536 

10340 O$=0$+CHR$CPEEKCAD) 

10350 NEXTG 


A af. 
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line number. Lastly а check to see if the line 
number called is within the safe zone. 


LINES 10390-10470 


The position of the old line no 0 is found in 
the arrayN%() H% is the position in the array 
that the value of 0 is compared with, in line 
10470, and is initialised at the middle of the 
occupied area of the array. K% is initialised at 
just over% of the occupied length of the 
array. К% is reduced to just over % its value 
at each loop and Н% is altered by adding or 
subtracing К% depending on which direction 
the search for the line number must go. The 
values of the last two array positions looked 
at are held in HL% and НР%. If a second look 
is taken at any array position then the 
conclusion is that the number does not exist 
and the error message at 10460 is printed and 
the search for another GOTO or GOSUB 
resumes at 10230. This search routine takes 
only 5 or 6 loops to find a number in an array 
of 70 line numbers and is therefore more 
efficient than just starting at the bottom and 
looking at each array position on the way up, 
which would take an average 35 loops to find 
a line number Of course it relies on the fact 
that the numbers are stored in numerical 
order. The tests at 10430 and 10440 are to 
see if the search has gone beyond the 
occupied range of the array and modify Н% 
and K*6 accordingly. This routine is useful to 
look through апу array of values providing 
they are in number order. (ascending or 
descending). 


LINES 10480-10510 


String variable NN$ is set tothe characters 
of the new line number (including spaces) to 
be inserted in the 4 byte field of the program 
line. Line 10500 allows the start positions of 
subroutines to be recorded as the 
renumbering goes on. This line could be 
ommited and the start of subroutines 
marked in the program listing using REM" or 
^. The ^ allows the remarks to be put in 
inverse characters to make them stand out 
as the program zooms up the screen after 
LIST 


LINES 10520-10620 


This segment ensures that the value of 0 is 
consistant with the number of spaces at the 
left of the 4 byte field that the number came 
from. 


LINES 10630-10670 
Character by character POKEing of the 


' new line number to its position in the line 


format. 


10368 O-URLCOS) 

10320 IFO>=STHEN PRINT"LINE" ;u;" СМЕМ) :-" 
;OELSE GOTO 10430 

10380 PRINT"CTWELUE SPACESJ---INSIDE SAF 

E 20МЕ:М-М»1:0607010230 

10390 HPxz0:HLx-0 

10400 нх=1+0/2:Кх=0/2. 

10410 KxC(Kx*1)72:HPX-HLX :HLz-Hx 

10420 Hx-Hx «*SGNC(O-NXCHz)) XKx 

10430 IFNx£Hx)20THENHx-Hx-Kx :Kx2] 

10440 IF Нх<1ТНЕМНХ=1 :Кх= 1 

10450 ІЕНХ-НРХТНЕМ GOTO198460ELSEGOTO1042 

@ 

10460 PRINT"LINE" 3W3"CNEW) :- ";0;"NOT ҒО 

UND" :М=М+1 :GOTO1023@ 

10420 IFNX(Hx)4»OTHENGOTO10410 

10480 NN$="[3 SPACES]"+STRSCFtCH%-1)*J) 
10490 A=M-4:IFA>32767 THENA=A-65536 
10500 IF PEEKCAJ=145THEN PRINT"NEW SUBRG 
" SNNS"CALLEDG" ;Н 

10510 NN$-RIGHTSCNN$,4) 

10520 IFO»-1000THENGOTO10630 

10530 A=M-3:IFA>32767 THENA=A-65536 

10540 IF PEEKCA) <>32THENGOTO1061@ 

10550 IF 0>=1@@THENGOTO10632 

10560 A=M-2:IFA>32767THENA=A-65536 

10520 IFPEEKCA) < 32THENGOTO10610 

10580 IFO?-10THENGOTO10630 

10590 A=M-1 : IFA>32767 THENA=A-65536 

10600 IF PEEKCA)=32THENGOTO10630 

10610 PRINT"LINE" ;W3"CNEW) :FIELD ERROR" ; 

9 

10620 PRINT"£4 SPACESJ---CHANGE TO NEW N 

0.: "3NN$ :GOTO10670 

10638 FORG=1T04 

10640 A=N-4+G: IFA> 32767 THENA=A-65536 
10650 POKEA, ASCCMIDSCNN$,G, 13) 

10660 NEXTG 

10620 H=H+1:GOT010230 


2$. 
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See opotale by 
barry “Taylor 
Le v2 Sx 


FIND 
By Chris Stkamboulidis 


Find is a machine language routine 
which searches your Basic program 


- for lines which contain a specified 


string up to 16 characters in length. 
The routine is quite short (only 117 
bytes) and will work with any size vZ 
because it resides in an unused sec- 
tion of the communications region. 

There are two methods of entering 


Find into your machine: if you have 
an Editor Assembler, simply type in 
Listing 1, set the origin to 7A28H/ 
31272, assemble and dump the object 
code to tape under the name 
'FIND.OBJ. When you CLOAD or 
CRUN the tape, the routine will auto- 
run and immediately return you to 
the ‘READY prompt 


The other method is to type in List- 
ing 2, which will POKE the machine 
code instructions into place for you 
and will do all the initialisation. In 
this case, make sure that you CSAVE 
а copy of'FIND.BAS' before you try ` 
to RUN it. To save you typing it all in - 
again if it crashes for any reason, 
such as a wrong number in the data 


statements. А checksum is used to 
make sure that all these numbers add 
up, but this doesn't prevent numbers 
being placed in the wrong order. 
When you RUN the loader, it should 
only take a couple of seconds to do its 
job and then return you to‘READY’. 
The Basic loader will have been 
NEWed and you're ready to go. 

To use Find, simply enter the 
following as a direct command: 

PRINT&"string" 

Or 


3&"string" 
with the string to search for in be- 
tween the quotes. The line numbers 


ofthe lines which contain the search 
string will then be printed on the 
Screen for you. Note that leading 
spaces in the search string are 
ignored and so the routine cannot 
search for spaces, eg PRINT&“ " 
would be interpreted as a null string 
and would not be searched for. 


PCG Ару; a- 6% 
lot 3 


2 ЖК ЖЖК aca ok teak ok ae ete 
+ FIND UTILITY 

: FOR THE VZ-200 MICRO 

s ORG=7A28H/ 31272 

зж SYNTAX: PRINT&"STRING" 
PES 

(С) 1985 C.STAMBOUL IDIS« 
3 ЖК КА ККЖ poene beoe 


VON GOP oe 


BUFR EQU  7A7DH E 
7AUSH E 
77ADH 5 
77B0H 


BUFFER ҒОК SEARCH STRING 
CONTAINS LENGTH ОҒ SEARCH STRING 
CUNTAINS CURRENT LINE NU. 

РТ ТО START OF NEXT LINE IN FST 


A; ОСЗН ;SET UP 7%” VECTOR TO POINT 
(72?%4H) , ñ ;TO OUR ROUTINE 
НЕ, FIND 
(7775H) ; HL 
1E4DH ;DO ñ "NEW* 
1A19H sAND JUMP ТО * READY’ 
, HL НІ FOINTS TO SEARCH STRING 
358CH :MOVE STRING TU OUR BUFFER 
A» (LEN) :GET LENGTH ОҒ STRING 
A + SUBTRACT 1 
(LEN) >A sAND КЕРІ АСЕ ІТ 
а sIF NULL STRING 
2-ЕХІТ 3 THEN EXIT 
IX..C7304H) ;IX-START ОҒ PST/PTR TO NEXT LINE 
А, CIX*O) БЕТ LSB OF РТК 
A sCHECK FOR ZERU 
NZ, CONT sIF МОТ, THEN CONTINUE 
"As CIX+1) : БЕТ MSB ОҒ РТК 
а sCHECK IF ZERO ТОО 
) 2-ЕХІТ ;MUST БЕ END OF PST, SO EXIT 
CONT ЕРИ 9644); 
H, (IX+1) 
(NEXT) , HL. sSAVE FTR ТО NEXT LINE 
L, (IX+2) 
Н. (IX+23) 
(NUM) > HL. : SAVE CURRENT LINE NO. 
IX "GET FOSITION РТК 
HL : INTG HL 
HL sBUMP TO 15Т BYTE ОҒ STATEMENT 
HL 
HL 
HL 
CALL 2B7EH :DE-TOEKEMISE CURRENT LINE 


> 
< 
> 
a 
a 
pes 
a 
pu 
m 
< 


CQ.» l Nr 
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DE, 77ESH sDE= LOCATION OF EXFANDED LINE 
А: (LEM) sGET LENGTH OF SEARCH STRING 
В, ñ ;INTO B 

HL: RJFz— i sHL= BYTE BEFORE STRING BUFFER 
HL ЕРТ TO NEXT BYTE IN STRING 

A» CHL) sCHECE IF END ОҒ STRING 

A 

2-ЕХІТ sIF 50. THEN МЕ"КЕ DONE 

А, CBE) ПЕ- BYTE FROM STATEMENT LINE 
A ;CHECK FOR END OF LINE 

2, МОКЕ :IF 50. THEN PROCESS NEXT LINE 
DE 3;DE= NEXT BYTE IN STATEMENT 
(HL) sCHECE IF SAME AS STRING BYTEs 
NZ- FRE sIF МОТ» THEN TRY NEXT BYTE 
SCAN sCONTINUE UNTIL ALL BYTES FOUND 
A» ZOH sMUST BE ALL THERE. 50 

33AH sFRINT A SPACE 

HL: мым) sAND РКІМТ THE 

OF AFH ;CURRENT LINE МО. 

IX; (NEXT) sIX= РТК ТО NEXT LINE ІМ FST 
WEST sBACE TO СНЕСЕ NEXT LINE 


ERRURS + 
BYTES FREE :- 1028 


LISTING 


100 ЖЕКЕ оон EE ще ЕЕЕ Не B E GR ЖЖ 
110 7 FIND .BAS ж 
120 "ж FIND UTILITY FOR THE 92-200 МІСКО ж 
130 7+ QRG=7AZSH/31272 SYNTAX: FRINT&"S RINE + 
140 "ж NB. STRING РАН МОЕТ BE 16 CHARACTERS UR ж 
150 ` (C) 178 CHRIS ЗТАМНОЦЧ ILDIS + 
160 7 shots аг е ЕЛЕС EER PERUT R RR RE deb е Ж oe ed o e Ede oe EE 
170 * 

120 PORESOS42, 49: РОКЕЗОЗЬЗ, 12 

170 FORI-31Zz7zTOS13Z223:REGDJ:C-C-J: SEL, Ji NEXT "SET МЕ ROUTINE 
200 IFC +1 S01SFPRINT'CHECKSUM ERROR" 2 S TOF "ERROR IN ATA LINES 
210 XzsUs3R(O) "i30 INITIALISE ROUTINE 
220 END 

230 DATA 62. 195,50, 145.121.5353.57,122.24.149,121.205,77.2 

240 DATA о 122,61,50,214,122 

250 DATA 249,239,221, 42,144,120; 221,126,0,133, 52:6, 221 

<60 DATA a 123,40, 223,221,110,0, 221, 102 15 34, 176,121 

270 DATA 221.110. 2,221,192, 3,354:.174;121, 221. 227, 225.39, 35 

230 DATA 35,35,205.1206,45,17.232>121,53,214,122,71»53,156 

270 DATA 122. 55,124,154,40,150,26,1535.:40,17, 19, 190,32, 236 

309 DATA 165,241,6:,32,208,955, 3,42, 173,121, #05, 175,15, 22 

510 DATA 41, 176,171. 24, 174 


2 "SET ЫР USR JUMP TO INITIALISE 
= H 


Po 


64— massa 
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Yahizee dice 
loadedi 


With reference to Tumbling 
Dice by Ron Roberts in the 
November issue of APC І 
became suspicious of its 
“fairness” when Yahtzees 
with ones or sixes seemed 
almost impossible. Testing 
the random number ; 
expression used 
[R=INT(RND(1)*5+1.3] 
I found the probability of 
getting a one or a six half 
the probability of getting 
either 2, 3, 4 or 5. The 
following program verifies 
this claim: 
DIM М(6) 
РОВ 1=1 TO 6 : 
М(І)--О : NEXT I 
PRINT 
FOR 1=1 TO 1000 
R- INT (5*RND(1) 
+1.5) 
N(R)=N(R) + 1 
NEXT | 
FOR T=1 TO6 
PRINT T "-—-" МТ) 
100 NEXT 
May І suggest the more 
correct formula 
R=INT(6*RND(1)+1) 
for a fair game. 
W Holland 


АРС Apr 35 (+) ar 


VZ VARIABLE 
DEFINITION 


The statements DEFINT, 
DEFSNG, DEFDBL and 
DEFSTR are not implemen- 
ted in VZ-200 Basic 
(although the code for these 


is in ROM). А way of 
simulating these statements, 
without having to write great 
chunks of assembler, is to 
make use of the Variable 
Declaration Table located be- 
tween 30977 and 
31002 (7901-791AH). 

The VDT is 26 bytes in 
length, one for each letter of 


the alphabet. Each location 
contains a code defining the 
status of variables beginning 
with each letter: 


2 — integer 

3 — string 

`4 — single precision 
8 — double precision 


On power up and when- 
ever a program is RUN, the 
whole of the VDT is 
initialised to single precision 
(іе, each location contains 
a 4). 

The values in the VDT 
may be altered to define dif- 
ferent variable types. For 
example, if you wanted to 
define all А to Z variables as 
integers, you would put the 
following code at the start of 
your program: 


10 FORI= 30977 TO 
31002 ; РОКЕ 12: 
NEXT 

This is equivalent to the 
*DEFINT A-Z' statement in 
Level ІІ Microsoft Basic. 

Alternatively, the following 
formula could be used to 
define individual variables: 

10 POKE 30912 + 
А5С(“0О7,3 

(This would define Q as а 

string as in DEFSTR Q’.) 

Note that Basic will not 
accept double precision 
variables as counters in 

FOR-NEXT loops. Also note 

that it is no longer necessary 

to use a suffix of '$' or '96' 

after a string or integer vari- 

able has been defined. 


C Stamboulidis 
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VARIABLE 
VZ 6070 


The following routine 
eliminates those massive if 
then lists like: ~ 


IFA=10THEN100 
IFA=20THEN110 
АҒА--ЗОТНЕМ120 
etc. 

After calling the routine, 
the variable ‘GT holds the 
value of the line to GOTO 


To use, simply compute 
your line number to GOTO 
(or GOSUB) and having com- 
puted GT simply GOTO or 
GOSUB 2 i 


F Olsen 


1 GOTO XXXX!’ MUST LEAVE 

Сат оты 2 Uum боз. РК pro 
T TSLENCTS) LIPTC6THÉNT$ -T$ 4 CHR$ (32) «T$ : GOTO3 
д ҒОНС-2Т06:РОКЕЗ1478%6,А8С0(МІ 


sonore tee SPACE AND DO NOT ‘ALTER FIRST TWO LINES 


АРС Apr 85 ORB 


The ‘Variable VZ GOTO’ in | 
April APC does not work | 
due to an error in line 3. | 
Неге is z :evision that does! 


0 GOTO1000 

1 GOTO12345 

2 Т%-5ТН%(СТ) 

3 IFLEN(T$) <6THENT$= 
TS+” " :GOTO3 

4 FORC=2TO6 :POKE 

- 31478+C,ASC(MID$ 

(74.1) 

} :NEXT :GOTO1 | 


"he GOTO in line О ‘сап be A Pc Solas га) : 9 f 


any four digit number. If you 
магії to start your main pro- 
gram at a line numbered 
less than 1000, then use 
zeroes to make up the four 
digits. For example: 
0 GOTO0058 

To test the routine, enter 
these lines: 


95 LIST-1000 
1000 GT=95,GOTN2 
and RUN. і 

For а variable list, which 
can be useful when debug- 
ging a program, simply 
change line 1 to: `- 
1 LIST12345 


He bson с 


Lonely hearts 
club 


In reply to the letter "Basic 
Understanding” printed in 
the February edition of APC, 
| would like to commend 

S Hopson on the stand he 
has taken for the sharing of 
program knowledge. The 
computer which he uses as 
an example, the У2-200, 
has been greatly dis- 
advantaged by its marketing 
being limited to Australasia. 
This has meant that there... 
are very few books and 
other publications for it. The 
programs printed in 
magazines such as APC are 
among the few sources 
available for programming 
knowledge for this and many 
other home computers. 

It does seem a pity that 
more programmers do not 
comment on or explain the 

; various routines used in 
their programs. However, 
computer novices should not 
despair. LYSCo print a news- 
letter for the VZ-200/300, 
the Amstrad CPC-464 and 

the Commodore 16 and 


Plus/4. In the newsletter we 
print a host of hints and tips 
sent in by its readers and 
programmers. Entire pro- 
gram listings are printed in 
some éditions and we 
endeavour to answer ques- 
tions asked by the readers. 
These letters are completely 
free to people on our mailing 
list Anyone wishing to 
receive the newsletter 

should send a large stamped 
addressed envelope to 
LYSCo, PO Box 265, 
Bunbury, WA 6230 
specifying the computer they 
own. 

L Young 
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VZ200 VIDEO 
HARDWARE | 
NTERRUPT 


This article details how to use the video hardware interrupt on 
the VZ200 and gives three simple examples of its usefulness. 


THE HARDWARE INTERRUPT is a 
very useful feature of a computer's capabil- 
ity, with many different applications. The 
usefulness comes from the ability to 'inter- 
rupt' the normal flow of software execution, 
diverting the operation of the CPU by ex- 
ternal means. The CPU can then be made 
to execute a separate, independent program 
before: returning to the original program 
execution. 

This description may sound like a 
GOSUB call to a subroutine in Basic, or a 
CALL to a subroutine in a machine code 
program, but there is an important differ- 
ence. The difference is that the interrupt 
can occur asynchronously to the normal 
program execution (that is, it can occur at 
any time unrelated to the progress of nor- 
mal program execution). 

This capability is extremely useful when 
the computer has to serve some external de- 
vice which can't wait for an action by the 
computer during normal program execu- 
tion. Such devices range from a digital-to- 


analogue converter (which must sample 
data at strictly regular intervals), to a soft- 
ware clock counter which needs to be incre- 
mented by an external hardware clock 
pulse. By using a hardware interrupt these 
devices can be served almost immediately. 
in the time it takes the CPU to complete the 
current instruction. 

The interrupt is called a hardware inter- 
rupt because there is a special pin on the 
CPU chip itself, which, when taken to 
ground potential (low or zero), initiates the 
interrupt sequence. This action is also per- 
formed by some external hardware device. 

The VZ200 uses a Z80 CPU chip, which 
has three different responses to this inter- 
rupt signal depending on the interrupt mode 
set in the internal interrupt register (IR). 
Note that we are talking about the INT 
case, not the NMI). For the VZ200 the in- 
terrupt register is set to interrupt mode 1 
(by an ІМІ instruction) during the initializa- 
tion sequence. 

The response to an interrupt in Interrupt 


fal 3 


COMPUTING TODAY 


Steve Olney 


Mode 1 is to complete the current instruc- 
tion, save the program counter register 
(PCR) contents on the stack (allowing re- 
sumption of execution at that point upon 
returning from the interrupt) and then jump 
to location 0038 HEX. This could be viewed 
as a hardware version of the software 
RST 38 instruction. 


The VZ200 video interrupt 

Those of you who have access to a circuit 
diagram of the VZ200 will see that the inter- 
rupt pin (pin 16 INT) of the 280 CPU is 
connected to pin 37 (FS) of the 6847 video 
controller chip. Reference to the 6847 data 
sheets shows that pin 37 of the 6847 chip is 
the video field sync output pin. This pin is 
pulled low by the 6847 chip during the verti- 
cal retrace period of the video output signal. 
That is, the field sync output pin goes low 
every 1/50 of a second (video frame rate of 
50 per second) causing the Z80 CPU to be 
interrupted and diverted to location 0038 
HEX every 20 ms. 

Scrutiny of the machine code (in ROM) 
at location 0038 HEX reveals a JUMP in- 
struction to location 2EB8 HEX. This jump 
is referred to as interrupt vector. 

The machine code at 2EB8 HEX contains 
several CALLs to various locations before 
returning to the original program execution. 
I haven't looked at these in detail, but most 
likely they are concerned with cursor con- 
trol and perhaps screen scrolling during 
listing. 

In any case, the code in which we are in- 
terested is near the start of the code at2EB8 
HEX. The first CALL after saving affected 
registers is to location 787D HEX. There 
are two interesting points to note here, The 
first is that location 787D HEX is in RAM, 
and secondly, this is the memory location 
referred to in the VZ200 Technical Manual 
(under System pointers) as the “interrupt 
exit". 

By PEEKing location 787D HEX (eg > 
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LISTING 1 


HEX CODE MNEMONIC 


LISTING 2 


188 S= -32768 : F = S +7 
FOR I = S TO F : 
READ D 
POKE I,D 
NEXT I 
POKE 50846,90 
РОКЕ 50847,128 


POKE 38845, 195 27 
DATA 245,62,42,50,51,112,241,201:" 


ММЕМОМІС 


A, (783BH) 
B,8 
HL ,7818H 


NC, ZERO 
(HL) , 31H 


(HL) , зен 
HL 
LOOP 


RETURN 


LISTING 4 


188 5= -32768 : Ғ = 5 + 29: 
200 FOR I = 5 TOF : 


308 READ D 
POKE I,D 
I 
50846,00 
39847,128 
32845,195 


Save 'AF' register because we alter it 

Load "А" register with code tor '#' 

Put it in the top right-hand corner of screen 
Restore ‘AF’ register 

Return 


START AT 8000 HEX 
POKE THE 8-BYTE MACHINE CODE PROGRAM 
INTO MEMORY STARTING АТ 8000 HEX 


* ENTER THE START ADDRESS OF THE MACHINE 


CODE PROGRAM INTO INTERRUPT JUMP 
EXIT AT 787D HEX. 
“DECIMAL EQUIVALENT OF HEX 


$ save registers 
i we destroy 


load latch contents 

bit counter 

Start of screen display 
rOtate into carry and test 


; output 71” 
i adjust to next display position 
i go until all bits are done 


exit if done 


output 'В’ 


adjust to next screen position 


} go until all bits are done 


exit 


"START АТ 8000 HEX 


' POKE THE 8-BYTE MACHINE CODE PROGRAM 


INTO MEMORY STARTING AT 8000 HEX 


* ENTER THE START ADDRESS OF THE MACHINE 


CODE PROGRAM INTO INTERRUPT JUMP 
EXIT AT 787D HEX. 


245,197,229,58,59,129,6,8 
33,24,112,23,48,7,54,49 
35,16,248,24,5,54,48,35 
16,241,225,195,241,201 


100 -- ЕТІ Мау 1985 


PRINT РЕЕК(30845)) you should find it 
contains 201 DECIMAL (0C9 HEX) which 
is the Z80 RETurn instruction. 


Using the video interrupt 

Let's just back up to summarize what 
we've discussed so far. Every 20 ms the Z80 
CPU is interrupted by the 6847 video con- 
troller chip. The interrupt mode (mode 1) 
causes the Z80 to jump to location 0038 
HEX. From here execution jumps to 2EB8 
HEX where a CALL to 787D HEX is en- 
countered. Location 787D HEX (in RAM) 
contains a RET instruction and so execution 
returns immediately and continues until 
2EDA HEX where a return from interrupt 
instruction (RETI) is found. Execution is 
now RETurned to the original program 
flow. 

Now, because location 787D HEX is in 
RAM, we can change the RET instruction 
at that location to a JUMP to some other 
selected location. At this location we сап. 
insert our own interrupt servicing code. 

Here is a very simple example to illus- 
trate this procedure. Starting at location 
3450 HEX in the Basic ROM is a subroutine 
which generates the 'beep' whenever you 
press a key. We can alter location 787D, 
787E and 787F HEX to contain a JUMP to 
3450 HEX to execute this ‘beep’ routine 
every time a video interrupt occurs (every 
20 ms). 

To do this we POKE the following 
machine code into memory starting at loca- 
tion 787D HEX: 


Mnemonic 
JP 3450H 


Hex Code 
C3 50 34 


Note: Remember location 787D HEX is 
CALLed every 20 ms, so you must not alter 
the RET at this location until you have ent- 
ered a valid jump address in the following 
two bytes. Otherwise the Z80 will jump to 
some indeterminate address depending on 
what random data was contained in 787E 
and 787F HEX. 

The following strict order should be used: 

POKE 30846,80 (POKE 50 HEX into 

location 787E HEX) 

РОКЕ 30847,52 (РОКЕ 34 HEX into 

location 787F HEX) 

POKE 30845,195 (POKE C3 HEX into 

location 787D HEX) 

Type in the above commands via the im- 
mediate mode (without line numbers). The 
text within the brackets should not be typed 
in as it is for information only. 

Once you have done this you should hear 
an almost continuous Беер from the internal 
speaker. Notice that there is nothing which 
interferes with this beeping. Well, almost 
nothing, as will be explained a little later. 
However, you can enter a Basic program as 
normal (except for the distraction of the 
beeping) and even RUN or LIST it. In fact, 
you can do all the normal operations (ex- 


cept tape operations — see below) without 
affecting the beeping. This is because the in- 
terrupt has priority over other software ex- 
ecution. So we see it is possible to have a 
Basic program running in the ‘foreground’ 
with a separate machine language program 
running in the 'background' being executed 
at regular intervals. 

To stop the beep all that is necessary is to 
change the JUMP instruction (0C3 HEX) at 
location 787D HEX back to a RET (0C9 
HEX) by: 

POKE 30845,201 


Tape operations 

As mentioned earlier, there is another ac- 
tion which will disable the ‘beep’. During 
tape operations, interrupts are disabled to 
ensure that accurate timing delays in the 
tape function’s machine code are not dis- 
turbed. So while you are CSAVEing, 
CRUNning ог CLOADing data to or from 
tape the beeping will stop. However, once 
the operation is over the interrupts are 
enabled once again and the beeps return. 

To enable the ‘beep’ again, enter — 

POKE 30845,195 
Note: Before typing the above, make sure 
that locations 787E and 787F HEX contain 
the correct jump address (3450 HEX)! 


Non erasable video display 

Next we'll look at an example which 
shows how the video interrupt can be used 
to put ‘non-erasable’ information on the 
video screen. 

Normally, any information displayed on 
the screen can be overwritten, cleared or 
scrolled off the screen, either during pro- 
gram execution or in the immediate execu- 
tion mode. By using the video interrupt you 
can display information which cannot be 
overwritten. 

The machine language source code is 
shown in Listing 1. 

Use the Basic program shown in Listing 2 
to enter and then to enable the machine 
code program shown in Listing 1. 

After you have entered Listing 2, 
CSAVE it before RUNning it. You should 
see an ‘*’ in the top right-hand corner of the 
screen. Try to erase this by any means you 
like and you will find the best you can do is 
to erase it momentarily (in fact a maximum 
of approximately 20 ms, the time taken be- 
tween successive interrupts). The only way 
to erase the ‘*’ is to disable the interrupt 
itself, or to disable the machine code 
program by: 

POKE 30845,201 
which POKEs a RET instruction (0C9 
HEX) back into location 787D HEX. 


Real-time system pointer 
display 

When programming in Basic a useful fea- 
ture would be to see a constantly updated 
display of various system pointers (eg start 


of program, end of program, start of free | 
space etc) to aid in keeping track of the pro- 
gress of these parameters. 

To illustrate this principle simply, we will 
display the contents of the output latch. A 
copy of the latch contents is maintained at 
location 783B HEX (307779 decimal). The 
latch controls the following: 


BIT FUNCTION 0 1 
0 speaker O/P #1 
1 unused > 
2 cassette O/P 


see note below 


toggles according to data 


O/P 
3 mode control Mode 0 Mode 1 
4 background colour green buff 


5 speaker O/P #2 See note below 


6 unused 


7 unused 


Note: During a key press ‘beep’ or execu- 
tion of the SOUND command, the software 
toggles bit 0 and bit 5. When it does this, it 
first looks at the state of each bit and then 
inverts that state. Normally each bit (0 and 
5) are the complement of each other, and 
the inversion of both at the same time gives 
a ‘push-pull’ like drive signal to the speaker. 
However, if both bits were the same, there 
would be no differential change when they 
are inverted, and so no output. You can 
therefore disable the ‘beep’ and the 
SOUND command by looking at both bits 
and then POKEing a value into location 
783B HEX (30779 decimal) which makes 
them equal. That is, if the contents of 783B 
HEX are even, then POKE back into 783B 
HEX a value equal to (contents + 1). Con- 
versely, if the contents are odd, POKE back 
a value of (contents — 1). 

Getting back to the latch display — to in- 
dicate the state of each bit, we will display a 
`0” or ‘1’ for each bit in the top right-hand 
corner of the screen. 

The machine language source code is 
shown in Listing 3. 

The Basic program in Listing 4 will enter 
and enable the machine code program of 
Listing 3. Note that Listing 4 is similar to 
Listing 2, so if you have already entered 
Listing 2 you can modify it to Listing 4. 
Once again, enter the Basic program (List- 
ing 4), and CSAVE it before RUNning it. 
You should see the contents of the output 
latch displayed in binary in the top right- 
hand corner of the screen, reading from left 
to right, starting with bit 7 across to bit 0. 
Change the background colour (COLOR,0O 
апа СОГОК І) and note the change in bit 4 
in the display. 


Cursor position pointer 

Edit line number 900 to: 

900 DATA 245,197,229,58,166,120,6 
ReRUN the program. 


3 of з. 


This will display the horizontal cursor 
position pointer (0-31) from location 78A6 
HEX (30886 decimal). Use the left/right 
cursor position arrows to move the cursor 
and observe the display. 


Basic program pointers 

Now edit line number 900 to: 

900 DATA 245,197,229,58,249,120,6 
ReRUN the program again. 

This will display the LSB (Least Signifi- 
cant Byte) of the ‘end of Basic program’ 
pointer. Try adding extra lines to the Basic 
program and note the change in the display. 
For example, add the line: 

1500 REM TEST 
Note down the binary value displayed and 
then edit line 1500 to: 

1500 TEST 
Compare the new display value with the 
previous value. 

This exercise reveals that although the 
short form remark symbol (7) occupies two 
screen spaces less than the long form REM 
command, it needs two more program me- 
mory spaces to store it than the long form! 


What next? 

These given examples are very simple 
ones designed to illustrate the basic princi- 
ple of using the video interrupt and do not 
show the full potential of the technique. I 
have written two programs which utilize this 
technique in a more complex fashion. The 
first of these is a real-time clock which is 
controlled by the internal clock of the 
VZ200. This gives a digital readout display 
in the upper right-hand corner of the 
screen. The real-time clock is implemented 
entirely in software (no need for extra hard- 
ware or modifications). 

The second program demonstrates a 
split-screen graphics mode with one part of 
the screen having text and lo-res graphics, 
with the remainder in hi-res graphics. 


Other applications 

These are but a few of the many possible 
uses of the video interrupt. Other applica- 
tions include: 

@ arcade games — synchronizing move- 
ment with the video raster rate to give 
smooth action. Mixed hi-res graphics and 
text for scoring, simulating instrumentation 
etc; 

ө stopwatch — event timer or lap-scorer; 
ө frequency counter — using the internal 
VZ200 clock to give the timing gate period; 
and 

€ real-time control — using the VZ200 as 
acomponent in a control system, eg burglar 
alarm. 

The list could go on, as anything which 
requires a reasonably accurate time-keeping 
function or synchronization with the video 
display, is a possible candidate. Which all 
goes to show that it's not always rude to 
interrupt! e 
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30862, 241 ҒАН 
— 3, 143 X FH. 
START add. La Н where needed in your 
VZ- 200 program. 
Ф То get different colours 
— 286%] = 363 49 = $Fri1 instant colour you change the underlined 
number in the data. 


| It bylu 


This short machine code 
routine will turn the screen 


- 23694 + 38 62 s 8FFE The numbers for the dif- 


ferent colours are: 


the colour you have put in O=GREEN 170=BLUE 
У; wx: the data — instantly!! = : = 
замы lishing To call the machine code s о 
ы. routine type X=USR (0) A Willows 
tac 
bap 7€ LD HL H -Ẹri wu, 
REAR TO SD H5, рап 29g м || 00010 FORI=-28682 TO -28674 
H A 9% LD DE, 752i H 2860327 00020 READA:POKEI,A 
; 30 NEXT 
oj FF e 42 BC, *2FFH & 2047) Sa || 000 
| 7 За jt 1 00040 DATA33.0.112,17,1,112,1 
365 LD (HL) SSH arp Y, ,255,7,54,85,237,176,201 
{ (00050 POKE30862, 241: POKE30863, 143 
Ер Во ADIR k: 
Се RET 
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LDI азиз, (нь) Ts (ve) | 


. m a 
Ie ML Коч У.609: Aug 85. 
тс DE Ё 
de. , 4c 
Cue unt) BER : T : 
peer un е type іп the listing, either at 
BACKG ROU N D the start of another ргодгат 
| ог оп its own, and CSAVE it 
Useg by Lokou? gara. VZ RUN the program and, to fill 
— the screen, POKE the code 
One of the limitations of the. | for the desired character into 
VZ-200 is that it has only ; location 28672 (start of 
two background colours in screen address) and enter 
each mode: green and PRINT USR(O). In mode 1 
orange in mode O, buff and and colour O, O gives a 
green in mode 1. This short green background, 85 gives 
machine code program fills yellow, 170 blue and 255 
n . {Ре screen with апу desired gives a red background. In 
um top of miran haton loading character in either mode O mode 1, colour 1, buff = O, 
Р : or 1, making any of the cyan - 85, 170 - orange 
Program, le Self loading . eight foreground colours and 255 = magenta. 
available as a background. 
To use the program just 1 Williams 
Dis asemblas fishin ET 
e mec ір s... | Basic listing: 
зА 5 № ФА, (уон) р ЕВА шыч 26 
; TM=PEEK(30897)+256*PEEK(30898)—20 t+ Torm 
LD 4, A LX | на Ше 
7 2 1 20 РОКЕ 30897,ТМ-ІМТ(ТМ/256)%256:РОКЕ 16 м 
kD НАН ЙЫ are 30898 /1МТ(ТМ/256) (Kenk Tom 
| Ld 
E INS 7% 21 | 30 ТМ-ТМ-1:А-ТМ-65536 Shav'd be 
50 READ D:POKE I+A,D on = 
те LD (HL), 6, Сл РН) | | eo МЕХТ! Жү? 4%.) 
70 РОКЕ 30862,ТМ-ІМТ(ТМ/256)%256:РОКЕ $ | 
23 INC HL 30863,INT(TM/256) e wel. ) 
80 DATA 58,0,112,71,33,0,112,17,0,120,112,35, 
DF RST АН «К, 3 > 223,32,251,201 
ie F8 Тк N2,F64 р іш 
сә КЕТ Арс may ss (5) pno. 
2 ‘ E 
(аст ig) Cop». eit vasa керді х. 
AppenDum, 25 CLEAR So : Reged shack pies. 


30 Tm = Tra +i : Ë = -Т/-бзу36, 


10 REM"LOOP . те: 

с 28° AS= INKEY$ :AS= INKEYS ` 

. 88 IFas$-"L"THENGOSUB62" INSERT 

40IF 8$-":"THENGOS!IB8O" INVERSE” 
:SOUND 29; 1 


. 50 GOTOZe"LOUP ` 

` б@КЕП“ INSERT 

26 PRINT" INSERT” :SOUND32, 2 :RETURN 
89 REM" INVERSE 

98 PRINT" LNUERSE" : RETURN 


Sample listing 


APC Avg sç 7130-3. 
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Reversed REN 


Labelling subroutines with 
REM statements that 
describe the functions of the 
subroutines is obviously 
helpful to the programmer 
who has trouble remember- 
ing what parts do what 
when designing a long 
program. 

One way to make the sub- 
routines stand out in the 
LISTing is to use inverse 
REM statements. But the VZ 
computer will not straight- 


forwardly accept REM 
statements in inverse print 
— such REM lines are not 
entered into the LISTing 
when return key is pressed 
and the SYNTAX ERROR? 
MESSAGE displays. 

This can be simply over- 
come by preceding an 
inverse REM statement with 
quotes. 

120 REM"AN EXAMPLE 
end quotes are not needed; 
the underlined characters are 
in inverse form — do not 
inverse the word REM! 


Having suitably named our 
subroutines, wouldn't it be 
great if we could call those 
subroutines by name instead 
of GOSUB a line number? 
The VZ does not imple- 
ment procedural calls, but 


we can simulate this desir- 
able feature by placing the 
name we have given the 
subroutine immediately after | 
the GOSUB number: 

30 GOSUB120"AN 

EXAMPLE" 
and because the name is in 
inverse form here also, it 
stands out clearly in the 
LISTing that this is a call on 
that particular subroutine. In- 
the case of a GOSUB you 
must use end quotes also if 
any further statements 
follow the GOSUB on the 
same program line. 

GOTO can be treated in 
the same way — simply give 
a REM name to the block of 
code you GOTO. 


R Quinn 


Disassembled lishing 


2A 6 78 
23 INC HL 
22. P4 78 


LD HL, (4263) 


LD (1960), HL 
Co RET 


REAL TIME 
CLOCK 


The following set of 

subroutines can be used to 

implement timing on any 

VZ-200. 

100 ‘X=TIME & STOP 

105 POKE 30845,201 

110 X=PEEK(LC)+256* 
PEEK(LC+1) 

120 RETURN 

130 ‘ZERO & DISSABLE 

140 POKE 30845,201:POKE 

| LC,0:POKE LC+1,0 

145 RETURN 

150 '$ЕТ UP TIME ROUTINE 

155 GOSUB 130: 
L=30816:RESTORE 

160 READ X 

165 \F Х>0, РОКЕ 
LX:L=L+1:GOTO 160 

170 POKE 30846,96:POKE 
30847,120 

180 DATA 42,104,120,35,34, 
104,120,201,1 

185 LC=30824 

190 RETURN 

200 ‘START TIME 
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205 РОКЕ 30845,195 
210 RETURN 


Тһе subroutine at 1 50 is 
used to set up а simple 
machine code program 


` which increments locations 
30824 and 30825 every 


time the У2-200 interrupt 
routine is executed, which.is 
50 times every second. 
When the time is read by 
calling the subroutine at line 
100, the value returned in X 
should be divided by 50 to 
read the number of seconds 
since the timer was started. 
To start timing, use 
GOSUB 200. To zero the 
timeclock, use GOSUB 130. 
To read the time without 
stopping the clock, use 
GOSUB 110. 
To read the time and stop 
the clock, use GOSUB 100. 
Be sure that before you 
use any of these sub- 
routines, you do a GOSUB 
150 to set up the right 


routines. Your main program 


should not use the variable 


LC as this is used in these 
timing programs. 


C Griffin 
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add 1 


shove at 30240, 


BENCHMARKS _ 


A list of Benchmarks used when evaluating micros Is given below. 
An explanation can be found In the February "84 issue. 


100 REM Berchmart 1 
110 PRINT “5” 

120 FOR K= 1 TO 1000 
130 NEXT K 

140 PRINT "E" 

150 END 


100 REM Веуч ету 2 
110 PRINT “5” 

120 K=0 

130 K=K+1 

140 IF K<1000 THEN 130 
150 PRINT "E" 

160 END 


100 REM Benchmark 3 
110 PRINT “S” 

120 K=0 

130 K=K+1 

140 A=KK*K+K—K 
150 IF K <1000 THEN 130 
160 PRINT “E” 

170 END 


100 REM Benchmark 4 
110 PRINT “S” 

120 K=0 

130 K=K+1 

140 A=K/2°3+4-5 
150 K<1000 THEN 130 
160 PRINT “E” 

170 END 


100 REM Benchmark 5 
110 PRINT “5” 

120 K=0 

130 К=К+1 

140 A=K/2*3+4-5 

150 GOSUB 190 

160 IF К<1000 THEN 130 
170 PRINT "E" 

180 END 

190 RETURN 


100 REM Benchmark 6 
110 PRINT "S" 
120 K=0 


130 DIM M(5) 

140 K=K+1 

150 А-К/2%3-4-5 

160 GOSUB220 

170 FORL=1 TO 5 

180 NEXTL 

190 IF K<1000 THEN 140 
200 PRINT “E” 

210 END 

220 RETURN 


100 REM Benchmark 7 
110 PRINT "S" 

120 K=0 

130 DIM М(5) 

140 K=K+1 

150 A=K/2*3+4-5 
160 GOSUB 230 

170 РОВ L=1 TO 5 
180 M(L)- A 

190 NEXTL 

200 If K<1000 THEN 140 
210 PRINT "E" 


220 END 
230 RETURN 


100 REM 8enwhmork 8 
110 PRINT "S" 

120 К-0 

130 K=K+1 

140 A- K^2 

150 B=LOG(K) 

160 C = SIN(K) 

170 IF K «1000 THEN 130 
180 PRINT "E" 

190 END 
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VZ DELETIONS 


The VZ-200 computer is 

a much more powerful 
machine than appears. Many 
of its facilities slumber 
because someone has made 
a marketing decision to 
restrict Basic access to cer- 
tain facilities. Here-is how | 
one of them can be 
awakened. 

DELETE is a Basic editing 
command that allows you to 
erase a block of Basic lines 
from a program in one go, 
instead of having to 
eliminate them one by 
one by entering each line 
number and pressing the 
return key. 

Suppose, for example, you 
want to delete lines 250 to 
530 from a program. Add 
this line to your program: 

O D250-530 

Now enter the following 
commands and press the 
return key: 
POKE31469,182:RUN 

If you now list the 
program you will find the 
absence of all those lines 


you desire to be rid of. 

The content of line O will be 

invisible. Having accom- 

plished your goal you can 
delete line O in the conven- 
tional way — enter О and 
press return. 

O D-x where x is an end 
line number will, when the 
above POKE is made and the 
program RUN, eliminate all 
lines from the first line 
in the program (which of 
course will be line O:) to 
line x. 

On another matter, try this 
line: 

10 FORR=5TO485STEP32: 
PRINTGR,""; :INPUTA: 
PRINT@R+16, "А=";А: 
NEXT 

What it shows is that 
PRINTG and INPUT state- 
ments will not work together 
on odd numbered lines 
(counting down the screen 
0,1,2....,16). A numerical 
INPUT will always return O; 


а string INPUT will return 


the null string. So take care 
when programming with 
these two statements. 


R Quinn 
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VZ EDITOR/ 
ASSEMBLER 
TIPS 


To enter hi-res mode (mode 
(1)) in assembler set bit 3 of 
address 6800 H(26624) to 
1. Рог example: ~ ` 

LD A,(6800H) ; Load A with 


content of 6800H 
OR 8 ; Set Bit 3 of A to 1 
LD (6800H),A ; Load new 

information back 
LD (783BH),A ; into 6800H 

and 783BH 

ІҒ you want to change the 
background colour to buff 
(normally it's green), instead 
of [OR 8], as above, change 
that to OR 24 (setting bit 4 
to 1). 

(783BH) is the copy of 


(6800H). It is important to 
load А into (783BH) if you 
want to use the sound 
driver routine in ROM, 
because the SDR does a 
Read (783BH) to see what 
mode you are in, and loads 
that into (6800H). 

To Call the sound driver 


. routine 


LD HL, Frequency 
LD BC, Duration 
Call 345CH 

Before returning back to 
the Editor/ Assembler use 
the program below to clear 
bit 3 of (783BH). If you 
don't, the screen will change: 
to mode (1) (hi-res) when 
you use [Tape Save] in the 
Editor/Assembler. 
LD А(783ВН) 
AND 247 
LD (783BH),A 
T Lam 
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LOW COST PROGRAM 
GIVES VZ200/300 FULL 
LEVEL II BASIC 


Ever wished that your little У2200 or У2300 would run full 
Microsoft Level ІІ BASIC instead of just a stripped-down 
version? You needn't wish any longer thanks to an 


enterprising local programmer. 


REMEMBER STEVE OLNEY? If you’re 
a VZ200 or VZ300 owner and BASIC 
programmer, you should. We’ve published 
at least three of his articles so far, mainly 
on resurrecting dormant functions and 
statement keywords in VZ BASIC. One 
was in the March ’84 issue, another in 
October "84 and the last in May '85. 

Steve’s a very knowledgeable guy when 
it comes to the VZ200/300, іп terms of 
both software and hardware. He’s spent 
quite a lot of time burrowing into its little 
secrets, and probably knows as much 
about it as anyone in Australia. 

I know that sounds a bit like paeaning 
in his pocket, but I’ve just been trying out 
the latest fruit of his labours. And this 
time it’s not just an article showing you 
how to restore a few more missing func- 
tions to VZ BASIC. It’s a machine lan- 
guage utility program that restores pretty 
well the whole blinking lot for you — in- 
stant Level II BASIC! Hence my little 
paean of praise. 

Steve calls his new utility Extended 
BASIC Version 2.2, or ‘EXBSV2.2’ for 
short. It is available on either cassette 
tape or disk, to suit both basic and ex- 
panded VZ systems. It is also compatible 
with both the VZ200 and VZ300, and with 
the current Disk BASIC (V1.2 DOS). 

You load EXBSV2.2 into your VZ be- 
fore you load in anything else. It is only 
about 1600 bytes long (about 1.5K) and is 
fully self-locating, finding the top of avail- 
able RAM and installing itself there. At 
the same time it lowers the BASIC ‘top of 
КАМ” pointer to prevent any other pro- 
grams from being loaded over it. 

As part of the installation it patches it- 
self into ROM BASIC, in much the same 
way that Disk BASIC does, to become 
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| transparent to the user. All tat you're 


aware of is that the RAM 15 now about 
1.5K smaller than before — plus, of 
course, the fact that your trusty VZ now 
responds to no less than 25 new BASIC 
commands! 

Of these 25 new commands, 23 are basi- 
cally resurrected Level II commands that 
have been sleeping there all the time in 
the VZ's ROM, quietly waiting for 
EXBSV2.2 to sound the trumpet. They’re 
listed in the table. The other two are ex- 
tras — a bonus that Steve Olney has 
thrown in for good measure. And very 
handy thay are too: MERGE, to allow 
you to combine programs and routines, 
and RENUM to let you rationalise and 
tidy up a program whose line numbers 
have become a mess after a lot of editing 
and patching (or after using MERGE). 

All of the 25 new commands are fully 
functional, and when used in a program 
can be LISTed — at least on any machine 
with EXBSV2.2 loaded. All but two of 
them will even RUN on a VZ which does- 
n't have EXBSV2.2 loaced! The two ex- 
ceptions are ON and ERROR, which arise 
because of a conflict in token codes (nor- 
mal VZs use the normal ERROR token 
for the added command SOUND). 

Even here Steve Olney has provided an 
answer, for those who really do want the 
Level II programs they generate to be 
capable of running on plain-vanilla VZs 
(how helpful can the guy get?). He’s done 
this by providing the listing of a short 
BASIC routine which you can MERGE 
into the top of your programs after they’re 
finished and debugged. You then use it to 
convert your finished programs 

When it has finished, you DELETE the 


| routine itself (notice that?) and CSAVE 


Ару yí 


Jim Rowe 


the converted program. It won't LIST 
properly any more, but it will now RUN 
on a VZ without EXBSV2.2 installed. 
Тһеге'$ just one tiny catch: you can't use 
the construct ‘IF <expression> THEN 
ERROR <n>’ in any program that you 
want to convert in this fashion. You can 
only use ERROR in the ‘ON ERROR 
СОТО” construct. Not a serious limita- 
tion, but worth remembering. 

But back to EXBSV2.2 itself. Normally 
you'd expect to load this into your VZ 
every time you turn it on, which is easy 
enough and only takes a couple of seconds 
with the disk system. And with the utility 
installed, all of the new commands are at 
your disposal. 

It's great to be able to use direct com- 
mands like DELETE, AUTO, TRON and 
TROFF, RENUM and MERGE. How did 
we ever get along without DELETE? It's 
so damn useful — not to say virtually es- 
sential when you want to scrub a whole 
range of program lines. 

Then into the actual programming. It's 
really good to be able to use double-preci- 
sion constants and variables again. Plus to 
be able to define variables as integer, sin- 
gle, double or string type using DEFINT, 
DEFSNG, DEFDBL and DEFSTR. It's 
also much neater to be able to use ON- 
GOTO and ON-GOSUB, instead of a 
flock of IF-THENs. Not to mention being 
able to use ERROR, ERR and ERL. It's 
nice to be able to use RESUME and 
RANDOM, too. 

Of course there's also FIX, FRE, and 
MEM -- plus familiar old mates like 
CINT, CSNG and CDBL, POS and 
STRINGS (handy in setting out screens, 
that one — I missed it). And of course the 
very versatile VARPTR. Wheee! Makes 
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| TABLE 1. WHAT EXTENDED BASIC PROVIDES | 


System Commands: 


AUTO automatic line numbering for program entry 
Беке: DELETE delete a line or group of lines 

you feel a bit like Uncle Scrooge let loose TRON enable trace function (for debugging) 
in the Mint (well almost). | ТВОЕЕ disable trace function 

All of the new commands and functions MERGE merge tape program with program in memory 
seem to work perfectly. I certainly mam В renumber program lines 

* fi a ements: 

couldn a а ny ee ee if pee DEFINT define variable as an integer 
аге amy, MEy TO Pretty wen:nigdens:r rom DEFSNG define variable as single precision 
a functional point of view, my VZ now DEFDBL define variable as double precision 
behaves like any other Level II machine. DEFSTR define variable.as string type 

So thanks to EXBSV2.2, Steve Olney’s ERR error code 
іше genie, you can now trundle out all | EPL, е 
those old TRS80/ System80 programs and ON-GOTO branch to one of several line numbers depending upon the value of an 
get them running on your trusty VZ. The expression 
graphics will need a few mods, of course, ON-GOSUB branch to one of several subroutines depending upon the value of an 
but the programs themselves will be fine. expression 

And the cost of this magic ute? А mere Варои reseed random number делер Т 
$15 for the (аре version, ог $22 for ће a ы: ты continue program execution after error handling 
disk version. Both prices include packing CINT convert variable to an integer 
and postage, and EXBSV2.2 comes com- CSNG convert variable to single precision 
plete with a set of driving instructions. CDBL convert variable to double precision 
You couldn't get much better value for FIX return truncated integer part of a number ` 
money — obviously Steve Olney is not out ЕНЕ returns the amount of free memory remaining 
toi anyone of ME returns the amount of free memory remaining 

np any : A I POS returns the current screen cursor position 

Гуе only got one complaint. Couldn't he STRING$ returns a string of specified length 
have given it a name that's easier to pro- VARPTR locates a variable in memory 


nounce and type, like ‘Jeannie’? Try typ- 
ing EXBSV2.2 all the way through a re- 


Ж 
is going to want. And at this stage you can 
only get it direct from Steve Olney at 200 
Terrace Road, North Richmond, NSW 


2754. I only hope that his local post office 


view, and you'll know what I mean! 
is prepared for the onslaught. 
: ө 


Still, whatever һе cares to call it, it's a 
utility that almost every VZ, programmer 


ЕТІ Nov. 85 р. 4%. 


2 of 2. 


| simply роке the starting 
VZ USER Forexample address of the code for your 
00000011 11000000 user definable graphic into the 
00001100 00110000 memory location 44808/9 
GRAPH ics а а and the screen position of 
«d ES : .your user definable graphic 
1000 A=44800:8=65536 00110000 11001100 into the memory location 
1010 READ C:IF C=1THEN 44 / 
00001100 00110000 805/6. 
1070ELSEPOKEA-B,C 
‘:A=A+1:G0TO1010 00000011 11000000 Sample Program 
1020 DATA245,197,213, 00000000 00000000 


5 GOSUB 1000 


229,33,0,0,17,0,0 
1030 ОАТА14,8,26,1 19, 


10 FOR T=45000 ТО 


45015 
р 35,19,26,119,6,31 20 READ S:POKE 
1040 ОАТАЗ5,5,120,254, Т-65536,5 
0,194,20,175,19,13 | 30 NEXT T 
1050 DATA121,254,0, | | 40 РОКЕ 44808-65536, 
194,12,175,241,193 | 200:РОКЕ 44809- 
1060 DATA209,225, 65536,175 
201,-1 50 РОКЕ 44805-65536, 
1070 POKE30862,0:POKE 0:РОКЕ 44806- 
30863,175:RETURN 65536,112 
This routine will provide Refer to the technical 60 MODE(1):X=USR(0) 
any VZ programmers with manual for more details on 70 GOTO 70 
the ability of creating their 


high resolution graphics. 


1080 DATA 3,192,12,48, 
To activate this routine, you 


51,12,192,3,48 
1090 DATA 204,12,48,3, 
192,0,0 


own definable high resolu- 
tion characters in 8x8 pixels. 


АРС Зәм 86,7(1) : 2392. 


17S Ъ, 


АСС М = 450552; C$H22o95; АҒН = 


Ж e fha 
АҒ Fç fusy АҒ ў Save reg. AFI) FE o СР So H ; y EH z : 
44 Cç Рози 8e do stack. .14 С 14 AfÁ3P м2 АҒАН; А колка: 
82 Ds PUSH DE ; w IC эз INC DE j Nx grephics chee. 
| | Ы aie ees 
у Зз Es Росн HL ^: ` D vb ФЕС С j me Со 
“ LD A.C ` ta : 
оме Қ D HL даа; жеме pein. |" I 74 du DU 
`> Y] и Cs AF Ly DE, arcs Н ; View КАЯ "a |» IF FESS CP аум re | 
QA aE xi Lb C, SH. $ byks pares, |“ 2! Сәс АҒ тғ N2 AFNCH; w nat pois, 
“җе 1А {> А, (DE), heath A. |а P Por АҒ Ж 
; m с PoP BC соме - 
4%» 77 HD (м), В. Зеб dose | 26. C md 
“ QE 23 5 INC H4. ` Mx) sern loc, “24 D, Poe DE rodova С 
J 
1 stork 
$ . 4 K “2 Ë! POP нь z: 
час 13 % iN D DE ; next е 1 im 
A s| A, (DE) ¿wk ak A2 C £7 
ii і , | - ха М Com AFCEH 
"om ч лу (м), А de зше. Pragya reeds im | 
| | [ ° 1 » ol Str. 
vy RIE LD 5; згн. 8-3 D. (лғ) and pels tk onte Jj, Ӱр АН comme : ‹ 
ғ 
“14 23 j| ("c HL у Ne Sun pos. ic othe rsa. as ағалы АҒ le. | 
` " Qs 3 ЕС 5 А 6- 6-1, Na} о peces d esed progvers "x 
v Š : 
“м $ "l 6,85 =Ó. A. hes soma chuc lo pesa t potential, 


Sprites 2 


"Hh MX faily e lgan} 
f a 


4. low м Sv breuis M Yequrrcel , 


Procedure humbe- ә Calls 
‘Gre coding suggusded is dread ful = 


UA a FoR- Мех т losy h load ы) 


“Background, Fo matted. 

“The к} Commend Н Capabl 
е0 Patiing ал ar ded. de Hx 
Jub ves Мақ А, called. 
(9) k раа. T argument A slovd im 

4Sb му 5 
231609 2 3lolto (ҙа H + 7922 н) This 
maed pars Ha stank addres of И. requir 
teo. Ша “тиғағ тайық, TK. 


бетул in M. 540 Мал сл Ши) goes back 


Usvally © dummy 


Via 
1, BASIC А 


Сома нь] matod. 


13392. 23455 M  shadd. Lom generate bay 


43404 š 34SC 4H. shied. Rom 94леекіс Sow, 


(эл ar, lv. 5. м Rom vtd as ЕТЕТІНІ) 


lia Vo pole 34$0 H “уу «оиса. 
la 3e pols — 34£CH ar "gum, «дін, 
LM. uae by USA commending hive 
2e «4 40. Note dummy argue 
pasted. 


Betu- — 
LD 
xeu) 


11] 


HE 7921H 


мух. 
21 
Eq 


"a 


MACHINE 
LANGUAGE 
CALLS 


This simple У2200/300 
routine can save program- 
mers from using lots of 


POKE commands in a Basic 

program when calling a 

lot of machine code sub- 

routines. 

Conventional method: 

To call the address 13392 

& 13404 

10 POKE 30862,80:POKE 
30863,52 

20 x=USR(0) 

30 POKE 30862,92:POKE 
30863,52 


40 X=USR(0) 
New method: 
10 X=USR(13392): 
X=USR(13404) 
ain program: 
O POKE 52992-65536,58: 
POKE 52993-65536,33 


`1 POKE 52994-65536, 


121:POKE 52995- 
65536,50 
2 POKE 52996-65536,13: 
POKE 52997-65536,207 
3 POKE 52998-65536,58: 
POKE 52999-65536,34 
4 POKE 53000-65536,121 
:POKE 53001-65536,50 


'5'POKE 53002-65536,14: 


POKE 53003-65536,207 
6 POKE 53004-65536,195 
:РОКЕ 30862,0 
7 РОКЕ 30863,207 
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Those rotten manufacturers still insist on making machines that won't 
talk to each other in the same language. Some enlightened people 
are having a go with MSX, but in the meantime and in response to 
overwhelming demand, һеге 5 the 1986 APC Converter Chart. 

We've added seven new Basics, covering the latest machines, and 
revised and updated the chart. It isn't possible, of course, to cover 
every micro nor every command supported by each of the machines 
included. What this chart aims to do is to provide an at-a-glance 
syntax comparison using Microsoft Basic as a reference point. The 
chart won't convert programs for you but it will save you the trouble 
of getting hold of piles of manuals — and even when you've got 
them it's often the beginning, not the end of your worries. 

To use the chart, first check that the keyword you want isn't in the 
box on the right. If it is, then you're lucky: it's one of the few that 


IS the-same on every single machine featured here. Due to the 
limited amount of information we can squeeze into each box, it 
hasn't always been possible to indicate the full power of every state- 
ment. It should be assumed, therefore, that we're dealing with the 
most common uses of each statement, and that other uses may be 
available. 

Something to- watch out for: identical syntax may have different 
effects on different machines. Watch out especially for SYSTEM 

and RND. 

You'll notice we haven't included anything on sound and graphics: 
thats too complicated for a quick reference chart, but we've covered 
the subject in a series of articles which will appear in APC for 

a range of machines. 


BASIC RESERVED WORDS 


SHARED INSTRUCTIONS 


ABS 
cos 
END 


(exp) 
(exp) 


FOR var=exp TO exp [STEP exp] 


LEN (string) 


REM text 
SIN (exp) 
SOR (exp) 
STOP 

ТАМ (exp) 
VAL (exp) 


NB Space must 


BASIC CONVERTER CHART '86 


NB not available on OL 


NB not available on QL 


& FORMATS 


ASC 


Returns ASCII 
value of first 
character of string. 


ATN 


Arctangent of 
expression. 


CALL 


Calls assembler 
language sub- 
routine 


CHAIN 


Call a new 
program & pass 
variables to it. 


CHR$ 


Gives one-char 
string with ASCII 
code of exp. 


CLEAR 


CLEAR all [or 
selected] variables. 


CLOSE 


Closes disk files 
— closes all files 
if no specification. 


CONT 


continue program 
execution 


DATA 


Lists data to be 
used in a READ 
statement 


DEF 


Define arithmetic 
string function. 


ASC (string) ATN (exp) 


AUTO [lineno, val] 


“RSC (string) – 


CHAIN “filename” 


CALL addr, 
ЕЛЕСІ 


COMMODORE 64 & VIC 20 


ASC (string) ATN (exp) 


IBM PC-BASIC A 


ASC (string) ATN (exp) 


SYS addr 


CALL addr 
ма, . . „май 


MEMOTECH MTX 512 


ASC (string) ATN (exp) 


АТАМ (real-exp) 


MICROBEE 
MSX BASIC — 


ATN (exp) 


STANDARD 
MICROSOFT 


INKEY$ 


Returns character 
typed at keyboard 
or null if no 
character used 


INPUT 


Read data from 
terminal 


USR (addr) 


CHAIN filename 


Tu z 
[param param] - —— 


Evaluates 
expression for 
largest integer 
contained. 


LEFT$ 


Returns specified 
no. of characters 
starting at begin- 
ning of string. 


LIST 


List specified 
program lines at 
terminal. 


CHRS (exp) 


CHRS (exp) 


CLEAR [exp,exp] 


CHRS (exp) 


LLIST 


List specified 
program lines at 
printer. 


CLOSE 


Note: CLOSE #0 to 
close all files 


CONT 


DELETE 


Delete specified 
Program lines. 


Allocates space 
for arrays, 
specifies max 
subscript values. 


ABBREVIATIONS USED IN THIS CHART: 


addr 
exp 
parm(s) 
stmt 


be present for Memotech var 
LET var=EXP NB LET obligatory after THEN and ELSE on MicroBee 


EDIT 


Edit a program 
line. 


EXP 


Raises to power 
of expression. 


= address 

— expression 
-- parameter(s) 
statement 
— variable 


Square brackets [] indicate optional code. 


FRE 


Returns remaining 
memory space. 


GET 


Read a record from 
disk or tape file. 


GOSUB 


Branch to a Basic 
subroutine. 


GOTO 


Branch to a 
specified line 
number. 


IF/THEN/ELSE 


If exp is true stmt 
is executed. If not 
ELSE or following 
line is executed. 


DATA const 
[const . . .] 


DEF FNvar 
[(var,var . . .)] 
=exp 


DELETE lineno 
ШІ) 


DIM var(sub) 
[маг (sub), . . .] 


EDIT lineno 


EXP(exp) 


[cursor editing] 


FRE(exp) GET [3] lineno 
[record no] or 
INPUT#fileno, var 
[var . . .] for 
sequential files 


GOSUB lineno 


GOTO lineno 


if exp THEN 
[ELSE stmt] 


HIHEM-TOP 
Use PRINT 


GOSUB lineno/ 
[var][ exp] 


GOTO nena 


[var][exp] 


If exp THEN stmt 
[ELSE stmt] 


CLOSE #fileno 


CLOSE [#1 
[filename] 


DEF FNvar 
=exp 


DEF FNvar 
[(parms)]=exp 


DISC CLOSE # 
channel no 


DEF FNvar 
[(parms)]=exp 


STRS (int-exp) 
Note: set limits 


LOAD 


Load a program 
file into memory. 


| ans: fie] 


; if exp is gi " _ 


106 


Natural logarithm 
of expression. 


MID$ 


Gives specified no. 
of characters to the 
fight of start 
position in string. 


DIM уап sub) 
[(sub) . . .] 


[cursor editing] 


EXP( exp) 


FRE( exp) 
Note: exp is a 
dummy variable 


GET #fileno, var 


GOSUB lineno 


GOTO lineno 


IF exp THEN stmt 
Note: no ELSE 


DELETE [lineno] 
[-lineno] 


DIM var(sub) 
[var sub) . . .] 


EDIT lineno 


EXP(exp) 


FRE(exp) 
Note: exp is a 
dummy variable 


GET [3*] filename 
[иес no] 


GOSUB lineno 


GOTO lineno 


lf exp THEN stmt 
[ELSE stmt] 


DIM хац sub) 
[var(sub)] . . . 


- DEF FN(var) - 
| Црата) -ехр 


DIM var sub) 
(маз) . ..] 


EDIT lineno 


EXP(exp) 


DM vais) | 


drast] 


NEW 


Delete current 
program & data 
from memory. 


NAME 


Rename a file. 


ОМ ацец) 


[tnb]... 


NEXT 


End of 
FOR/NEXT loop. 


пм ш | 
КЕН 


ON ERROR 


Error trap 
subroutine. 


Disc INPUT # 
channelno 


FRE(0) mem. 
space FRE(S) str. 


INPUT ето, | 
аа. 


ON/GOSUB 


GOTO lineno spec- 
ified by evaluation 
of expression. 


INKEYS INPUT [string:] 


май var . . .] 


BBC 


Get var [unlimited] 
time] or INKEYS 
(time) Note: 
100ths sec. 


COMMODORE 64 & VIC 20 


GET var INPUT [string:] 


var [,var . . .] 


INT (exp) LEFTS (string, 


length) 


INT (exp) LEFTS (string, 


length) 


LIST [lineno, 
lineno] 


LIST [lineno, 
lineno] 


LLIST [lineno, 


CTRL-B then LIST 
[lineno- lineno] 


LOAD 
[“filename”] 


LOG(exp) 


Г щеку) NE 


LOG(exp) gives 
common rather 
than natural log 


INT (exp) LEFTS (string, 


length) 


ІВМ PC-BASIC A 
MEMOTECH MTX 512 
MICROBEE 

MSX BASIC 

TANDY 100 


STANDARD 
MICROSOFT 


MACHINE 


var S=INKEYS INPUT [prompt] 


var [,var] 


INT (exp) LEFTS (string, 


length) 


var $—INKEYS INPUT [prompt] 


var [маг] 


INPUT [string] 
var [ма] 


INPUT [prompt] | 
var [var] 


| INPUT [string] 
var [,var. . .] 


READ 


Read from data 
statements into 
specified variables 


RANDOMIZE 


Reset random 
number generator. 


LIST [lineno- 
lineno] 


LIST [1st line] 
[-last line] 
| filespec] 


LIST [1st line] 
[last line] 


Change program 
line numbers. 


Resets pointer to 


of DATA 
statements. 


RANDOMIZE READ var 
[exo] [var. . ] 


RENUM [lineno, RESTORE 
уа!) 


COMMODORE 64 & VIC 20 


RENUMBER [start 
lineno][, interval] 


RESTORE [lineno] 


RESTORE 


facilitate re-reading 


LIST [lineno 
['ineno]] 
forceloads 


RESUME 


Retum from 

ОМ ERROR sub- - 
routine to stmt 
that caused error. 


OPEN 4,4:CMD4: 
LIST [lineno-lineno] 
OPEN 3,4:CMD3: 
LIST [lineno-lineno] 


LIST [lineno, 
lineno] 


LIST [lineno, 
lineno] 


LUST (lineno. 
(/lineno]) 


RETURN 


Return from sub- 
— routine to state- 

ment foliowing last 

GOSUB executed. 


LOAD ["filename"] 
[cass] or LOAD 
"filename"",8 
[disk] 


LOG(exp) 


LOAD filename [Я] 


MIDS(string, start 
[length]) 


MIDS (string 
start{,length]) 


NAME "filename" NEW 
AS "filename" 


MIDS( string, 
start[, length]) 


OPEN 1,8,15, 

“RO: filename= 
filename” [disk only] 
N/A 


MIDS( string, 
start{,length]) 


LOAD (U) (2) 
"filename") 
LOAD U 


RIGHT$ 


Returns specified 
no. of characters 
starting at end of 
string. 


Generates а 
random nuiber — — 


MIDS(string, 
start{, length]) 


Execute a program. 
в Ва onto disk - 


NAME filename 
AS filename 


NEXT var 
[маг...] 


fas 


NEXT [var]f, var . 


NEXT (уа маг. . .] 


0М ERROR 
GOTO lineno 


Ün exp GOSUB 
lineno 
[lineno . . .] 


0М exp[var] GOSUB 
lineno 


[lineno . . .] 


ON/GOTO 


GOTO lineno spec- 
ified by evaluation 
of expression. 


GOSUB lineno 


GOTO lineno 


lf exp THEN stmt 
[ELSE stmt] 


GOSUB NB: sq. 
br. significant 


: -BOSUB lineno - 


OUT 


Put specified byte 
to specified output 
port. 


OPEN 


Open disk file. 


PEEK 


Read byte from 
specified memory 
location. 


ТЕ exp THEN 
stmt [ELSE stmt] 


if exp THEN stmt 


[ELSE stmt] 


POKE 


Put specified byte 
to specified 
memory address. 


PRINT 


Write data to disk 
tape or terminal. 


On exp GOTO 
lineno 
[.lineno . . .] 


OPEN mode [ #] OUT port, byte 


fileno "filename" 


ON ттт GOTO 
lineno 


[lineno . . .] 


ON exp GOSUB 
lineno 
[lineno . . .] 


ON exp GOTO 
lineno 
Llineno . . .] 


fileno=OPENIN 

[to read] or fileno= 
OPENOUT [to 
write] 


OPEN #exp, 
fileno, mode, 
“filename” 


NEXT [var, var, . . .] 


DISC REN 
string=string 


SAVE 


Save a program 


SGN 


Returns 

1 И exp>0 

0 if ехр=0 
—1 if exp <0. 


ог tape. 


STRING$ 


Returns a string of 
specified. length 
containing speci- 
fied character. 


ON ERROR GOTO 
lineno 


ON [exp:COM: 
KEY: PEN: STRING] 
GOSUB lineno 


ON exp GOSUB 
(Гехо(,ехр)])іпепо 
ШІСІ. 


ON exp GOTO 


OPEN filename 
[FOR Mode] AS [#] 
filename [LEN=rec) 


PEEK( addr) 


PEEK(addr) 


POKE addr, byte 


POKE addr, byte 


PRINT [[#] 
fileno] [exp] 
Le»...] 


PRINT #fileno 
record 
[record . . .] 


POKE addr, byte 


DISC OPEN # 
channel no, 
"filename", filetype, 
record length 


PEEK(addr) 


PEEK(addr) 


STR$ 


Converts a 
numeric expression 
to a string. 


SYSTEM 


Close files for 
return to operating _ 
system. 


| OPEN "filename" 


Trace off. 


Calls an assembler 
language sub- 
routine which 
returns one value. 


Suspend program 
execution for 
specified time. 


POKE addr, byte 


PRINT [exp][;] 


[DISC] PRINT 
[3t channelno, | 
print list 


WHILE/END| WIDTH 


Execute 

Statements іп | 
WHILE/WEND loop 
as long as exp is true 


Sets printer 
camiage/screen - 
width. 


RESUME 


RETURN 


RIGHTS (string, 
length) 


RND[exp] 


RIGHTS( string, 
length) 


RESTORE 


ІВМ PC-BASIC А 


RANDOMIZE 
(exp) 


MEMOTECH MTX 512 


RAND (exp) 


MICROBEE 


READ |(ілепо.)) 
,var] 


RENUM [new start no] 
[old start no] 
[inc] 


RESTORE [lineno] 
| RESTORE [ineno] 


RENUM (new- start. 
(increment (, start- 
line [, finish-line)))) 


RETURN [lineno] 


RIGHTS(string, 
length) 


RIGHTS 
[exp, length) 


RND(exp) 
Note: exp is a 
dummy for VIC 


RUN [lineno] 


SAVE filename SGN(exp) 


SAVE "filename" 
Note: see note 
under LOAD 


RUN [lineno] 


RUN [lineno] 


SAVE ["filename"] 
[cass] or SAVE 
"filename",8 

[disk] 


SNG(exp) 


STRINGS(length 
string) 


STRS(exp) 


STRINGS( length, 
string) 


SYSTEM 


USR(parameter) 


USR( parameter) 


WAIT port, mark 
[ select] 


USR( parameter) 


SAVE “filename” 
[АР] 


SGN(exp) 


-n- num 


var;LEN(va]-m-1) | 
2” 


RUN [lineno} 


SAVE “filename” 


STRS(exp) 


STRS(exp) 


WAIT addr, 
exp[,exp] 


USR(exp) 


USR( parameter) 


WATT port, 
ері, exp] 


WHILE exp WEND 


WIDTH(val) 


Persona 


rsona 


Computer 


WALLCHART 


STANDARD 
MICROSOFT 


BASIC CONVERTER 


Those rotten manufacturers still insist on making machines that won't 
talk to each other in the same language. Some enlightened people 
are having a go with MSX, but in the meantime and in response to 
overwhelming demand, һеге 5 the 1986 APC Converter Chart. 

We've added seven new Basics, covering the latest machines, and 
revised and updated the chart. It isn’t possible, of course, to cover 
every micro nor every command supported by each of the machines 
included. What this chart aims to do is to provide an at-a-glance 
syntax comparison using Microsoft Basic as a reference point. The 
chart won't convert programs for you but it will save you the trouble 
of getting hold of piles of manuals — and even when you've got 
them it’s often the beginning, not the end of your worries. 

To use the chart, first check that the keyword you want isn't in the 
box on the right. If it is, then you're lucky: it's one of the few that 


BASIC RESERVED WORL 


IS the-same on every single machine featured here. Due to 1 
limited amount of information we can squeeze into each box 
hasn't always been possible to indicate the full power of eve 
ment. It should be assumed, therefore, that we're dealing wi 
most common uses of each statement, and that other uses | 
available. 

Something їо. watch out for: identical syntax may have diffe 
effects on different machines. Watch out especially for SYS] 
and RND. 

You'll notice we haven't included anything on sound and gra 
that's too complicated for a quick reference chart, but we've 
the subject in a series of articles which will appear іп APC 
a range of machines. 


ASC 


Returns ASCII 
value of first 


character of string. 


ASC (string) 


ATN 


Arctangent of 
expression. 


CALL 


Calls assembler 
language sub- 
routine 


CHAIN 


Call a new 
program & pass 
variables to it. 


ATN (exp) 


АТМ (exp) 


ATN (exp) 


AUTO [lineno, val] 


CALL мат, var, 
var...] 


CHAIN "filename" 


CHRS (exp) 


CHR$ 


Gives one-char 
string with ASCH 
code of exp. 


CLEAR 


CLEAR all [or 
selected] variables. 


CLOSE 


Closes disk files 
— closes all files 
if no specitication. 


CONT 


continue program 
execution 


CLEAR [exp, exp] 


CHRS (exp) 


CLOSE 


CLOSE їйїп 
Note: CLOSE #0 to 
close all files 


CLOSE #fileno 


CONT 


COMMODORE 64 & VIC 20 i 
IBM PCBASICA 0 z 


CALL addr 
[var, . . „май 


CLOSE [#] 
[filename] 


CHRS (exp) 
CHAIN filename CHRS (exp) 


RB A LEE REI 


MEMOTECH MIX 512 
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STANDARD 
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INPUT 
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INT 
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arms] 


LEFT$ 
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no. of characters 


M RUN “filename” 


LIST 


List specified 
program lines at 


CHRS (exp) 


CHR (integer-exp) STRS (int-exp) 
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for string 
memory 
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LLIST 
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LOAD 


Load a program 
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| DISK basic only 
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LOG 
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VZ-200 CASSETTE INLAYS 


this program 15 lor all you VZ-200/300 users who have piles of 
vasselle tapes and want to Index their contents so is easy bo hnd 
what you want. This program uses the PP-40, а pante/plotter 
distubuted by Dick Smith, and makes extensive use ol the graphics 
contand suppotted by this printer The programi contains сот 
ments lor those users шапа wih the required commands, and 
fot those who ate thinking of conveding the program 


lan Бане. 
(томат, NW 
5 GOSUB 1000 'TITLE 
18 'CASSETTE TAPE INSERTS 
20 "ВТ IAN DUTF IELD 
“БОК THE 04-200 
) 1673785 
.^ FOR USE WITH PP4Q 
Ў PRINTER 
USE IN 40 COLUMN MODE 
TSET PRINTER TO TEXT МОРЕ 
^ CAN BE CONVERTED TO OTHER 
PRINTERS. 
LPRINT CHNS$CI2) 
ЧО CR AND LINEFEED 
100 LPRINI СНЮ$а ЗЭ 
110 ЕРКИ СИПЮ»(10) 
129 "SET COLOUR TO BLACK 
130 ?FIRST GO INTO GRAPHIC MNOUE 
149 LPRINT CHRS C18) 
КОЙ PRIMI WOO 
160 "RETURN TU ТЕХ! 
170 i PRINT СНКФСТАЈ 


Ye та» ў. pes 
106% 


LPRINT “ ЖЖЖ CASSETTE INLAYS xxx" 
LPRINT "" | 

% INTO GRAPHIC MODE TO 
› PRINT NUMBERS AND LINES 
LPRINT CHR$(18) 
LPRINT: "Sp - 

> SET SI2E 

% PRINT NUMBERS 
ARENT. "РШ" 

> DRAW LINE 

LPRINT "J446; 0" 

› GO BACK TO PRINT NUMBER 
LPRINT "R-200,0" 

*. PRINT OTHER NUMBER: 
LERINT Вах“ 
LPRINT"R-292,; -30" 
LPRINT"P3." 
LPRINT"J446,0" 
LPRINT"R-200, 0" 
LPRINT"P4." 
LPRINT"R-292,-30" 
LPRINT"PS." 
LPRINT"J446,0" 
LPRINT"R-200,0" 
LPRINT"P6." 
LPRINT"R-292,-30" 
EPRINT"P2;" 
LPRINT"J446,0" 
LPRINT"R-200,0" 
EPRINI"PS." 
LPRINT"R-292,-30" 
LPRINT"PS9," 
LPRINT"J446,0" 
LPRINT'" R-200,0" 
КЕРІНТ?РІӨ.” 
LPRINT"R-315, -38" 
PRINT: РЗ 
LPRINT"J446,0" 
LPRINT"R-200,0" 
LPRING PTZ." 
LPRINT*R=315, =30" 
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480 
490 
500 
510 
520 
920 
930 
1500 
1000 
1010 
1030 
1035 
1040 
1045 


, 
1060 
1020 
1080 
1030 
2000 
2010 
2040 
2050 
x" 
2060 
2020 
E" 
2080 
2030 
2035 
3000 
3010 
O СО 
3020 
3030 
4000 
4005 
4010 
RESS 
4020 
4030 


LPRINT"P13." 
LPRINT"J446, 9" 
LPRINT"R-200,Q" 
LPRINT"P14. " 
LPRINT"R-315, -30" 
SOUND 31,1. | 
PRINT"CINUERSE) FINISHED":FOR T=1 TO 
:NEXT : RUN 
TITLE PAGE 
CLS 
COLOR 8,0 
POKE 30744, 1 
PRINT@0@,"CTRL+0,CTRL+TX30,CTRL +U; 
PRINT@448, "CTRL+E, CTRL+YX3@, CTRL+R" 


FOR Y=32 TO 416 STEP 32 

PRINT@Y, "CTRL +U" 

NEXT Y 

FOR Y=63 TO 447 STEP 32 
PRINT@Y,"CTRL+I" 

NEXT Y 

PRINT@1@9, "02-200" 

PRINT@195, "xxx CASSETTE - INLAYS xXx 


PRINT@298, "BY IAN DUTFIELD" 
PRINT@388, "PRESS ANY KEY TO CONTINU 


IF INKEY$="" THEN GOTO 3000 

IF INKEY$="" THEN GOTO 3000 

SOUND 31,1:GOTO 4000 

SOUND 28,1 

PRINT@388, "CINUERSEJPRESS ANY KEY T 
NTINUE" 


SOUND 10,1 

GOTO 2070 

cis 

POKE 30744,0 

INPUT" CINUERSEJSET UP PRINTER AND P 
<RET>" 5P$ 

PRINT :PRINT :PRINT"PRINTING" 

RETURN 
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Consider the 
BASICS  . 


Tear yourself away from the darkroom 

and plug-in to Kim Kohen's use of home 
computers with photography. This combination 
is only as limited as your imagination. 


t seems just about everything we do 
these days is somehow influenced by a 
computer. Evidence of this comes in the 
fact that most of the cameras and lenses 
we see on sale now, have either been 
designed by or have as an integral part, 
something resembling a microprocessor. 
This has enabled designers to create far 
more accurate and ‘foolproof’ cameras. 

My involvement with computers is not so 
complex. | had tinkered with home com- 
puters for around 18 months before | start- 
ed realising their potential for the 
photographer. | decided that because a great 
deal of photography is taken up with time in 
the darkroom, thenthis was the first area that 
| should explore. It occurred to me that most 
photo timers these days are electronic rather 
than mechanical, so | figured that this would 
be the first task | would make my computer 
perform. 

| am not a computer expert and | do not 
have mega-buck super powerful computers. 
| use probably the cheapest computer on the 
market, a Dick Smith VZ 300, which at the 
time of writing was retailing for $99.00. When 
you consider the cost of the Seiko watch 
you're probably using as a timer now, the 
computer would have to be considered great 
value. ) 

Most home computers use the computer 
language calledBASIC. To get the computer 
to do exactly what you want, it is necessary 
to have a program written in this language. 
There are numerous books available on 
BASIC and with alittle patience it is a fairly 
straightforward language to understand. 


Computer Timing 

OK, back to the timers. For quite a while 
| had been processing films at home using 
my digital wristwatch as the only form of 
timer. This is OK in black and white where 
there are only a couple of steps to time. The 
problem was that an ever increasing amount 
of my work was being done on colour trans- 
parencies. With the number of steps and the 
precision required for E6 films, processing 
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them can be quite a handful. This is where 
the computer comes in. 

The thing that computers do best is count. 
This meant that it was just a matter of get- 
ting the computer to time the necessary 
processing steps for me by making it count. 
If this sounds difficult, just have a look at a 
BASIC manual to see how easy it really is. 
The technique needed is called a 'nested 
loop'. In a nested loop, the computer is told 
to count to a certain number, but also to wait 
a certain time before going to the next num- 
ber. Confused? Don't worry. Have a look at 
Table 1 and you should get a better idea of 
how it works. 

Now for my E6 program | had a few 


This computer plugs into most television sets. 
Itis amazing just how valuable it can be to the 
photographer, from timing film processing to 
designing filing sytems. 


This is a typical plug-in type memory expan- 
sion unit. It gives the user an extra 16K of Ran- 
dom Access Memory. Most of the author's 
photography programs require 3K of RAM to 
run. 
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Table 1. This is the first developer timing step ir in 
_ my E6 program. Lines 176 and 180 display on the’ 
_ screen that the timing has started. Line 182 tells 
_the computer to count from 318 to 0 in steps of E 
-1.This is the development time in seconds. Line 
` 188 is just a display of the time. Lines 190 and 
200 are telling the computer to count tó 381 BE- 
. FORE it counts the the next number from line. A82. 
You see it takes the computer approx 1 second ; 
< to count to 381. So this means the computer will 
` count down from 318 and take 1 second between 
counts. Lines 205 to 220 tell the computer to make. 
а sound every Second for the last то seconds of 


definite requirements. | wanted an audible 
warning as І was approaching а chemistry 
change, and l wanted a 15 sec. allowance 
in which to change chemistry. As well as that 
I wanted a time display so that at any stage 
during processing | could see at a glance 
how much time was remaining. It took quite 
a bit of time but | finally worked out the right 
program to perform all of these functions. 

It would take too much space to reprint the. 
entire program here. Although it is fairly sim- 
ple, it does take up quite a bit of room. In 
the six months | have been using the pro- 
gram, | have processed over 100 rolls of film 
with a 10096 success rate. (That's better 
than most labs). 

Of course the timer principle has many ap- 
plications. | have just finished a program that. 
times Cibachrome processing and automat- 
ically adjusts it's timing according to what 
temperature the user inputs. 


Outside the Darkroom | 

There аге obviously many other applica- 
tions for home computers in photography. 
They don't all have to be in the darkroom `--- 


Ц ны 


һе timing step. This is 10 warn about а chemistry 
ge approaching. Simple i isn t int ҮН FE 


176 PRINT @ 74, “FIRST. DEV” 
180'PRINT @ 135, “TIMING COMMENCED 


188 PRINT @ 265, "SECONDS. x p 
190 FOR X=1 TO 381 Р 


either. Опе really simple program І have writ- 
ten works out the correct aperture to use 
when using extension tubes for close-ups. 
Another one lets you work out the hyperfo- 
cal length of your various lenses. (Table 2). 
This in itself is no big deal, but once you 
know the hyperfocal length of your lens, you 
can then calculate accurate depth of field ta- 


ч 


The liquid crystal ‘computer’ display of the 
Minolta 7000. These displays will become 
even more popular in the future. 
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bles, and even optimum focusing distances 
for greatest depth of field. Naturally, you 
would work this out on your computer too. 

So now l've conviced you that without a 
computer your life's ambition of great pho- 
tography will not be achieved. Before you 
rush out and spend a small fortune on the 
latest whiz-bang computer, there are a few 
things you should know. The most important 
thing to do before you buy, is to decide ex- 
actly what you want the computerto do. This 
will allow you to determine the type of com- 
puter, and the amount of memory you are 


likely to need. Most of the photography pro- 
grams | use require only about ЗК of RAM 
to run. RAM or 'random access memory', is 
the memory used to store the users pro- 
grams. The type of programs you run will de- 
pend on the amount of RAM you have 
available. The more complex the program, 
the more RAM it requires. ROM or 'read only 
memory, is the computers inbuilt memory. 
The ROM cannot be programmed by the 
user. The BASIC language is part of the 
ROM. 

If you are only going to use the computer 
for simpletiming tasks then a computer with 
16K of RAM wil. be quite adequate. 
However, if you want to run business-type 
programs like word processors or spread- 
sheets, then a machine with a larger memory 
will be necessary. Something to remember 
here is that many computers RAM.can be 
doubled by the fitting of plug-in memory ex- 
pansion packs or boards. Go to a recognised 


` computer shop and ask about any particu- 


lar computer and its functions. 

This article is, of course, only scratching 
the surface. Programs can be written for 
storing details of where photos were taken, 
at what aperture, shutter speed, film types 
etc. Computer filing systems can be 
designed for instant information on the lo- 
cation of your precious slides or negatives. 
How about a program for keeping track of 
how much money you spend on photogra- 
phy each year? You could take it one step 
further and work out your tax return on the 
computer. Who knows, the computer may 
even be a legitimate tax deduction. ө 


If anyone is interested in the programs men- 
tioned in this article, or if you have written any 


‚ programs in BASIC relating to photography 
. Write to Kim Kohen, 47 Allingham St, Banks- 


town 2200. NSW. 
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Add емоме 
Coy 
45 CLEAR So : Rsk stack poles, 


10 TM=PEEK (30898) *256+PEEK (36897 )-35 
` 20 POKE20897,TM-iNT(TM/256)*256: POKE20858 , INT( TM/256) 


30 TM=TM+1 I NEXT ADDR., 
LO POKE308L6 ,TM- INT(TM/256) *256 : POKE20847 , INT(TM/256) 
50 TM=TM-65536 CONVERT TO памер DEC, 


60 FORA=QTO31 “i 

70 READB: POKETM+A,B 

80 NEXT 

90 РОКЕ5084+7,205 f саса 6. INTERVET EXIT, 

100 NEW 

110 DATA35,150,0,1,70,0,58,251,104,254,121,192,205,92,52,58,251 
120 DATAI@4,254,115,32,249,33,200,0,1,60,0,205,92, 52,20 
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Action: When a key js Ca peessed th key board Scanning 


Tov) Sets oan INTERRUPT. p ыр) rovlin jf 


Vacha eek ah Rom. dot interrupt nil. 

7%7>/Е/Ғ hx, ( 30845/4/) D<.) is AA 3 hyde р еа} 
seh by Жағаны. JA n called by a ои 

Lins 40 ana, qo seb ths ¿L CALA (tomes), [ с 


VZ Pause 


VZ Pause is а short routine for the У2- 
200 which enables the computer to be 
“paused' at any time. А pause can be 
initiated Бу pressing Shift-X. А short 
beeb will be produced to confirm that a 
pause has begun and pause can be ter- 


` minated by pressing Shift-C, and again а 


short beeb will confirm this. The routine 
uses interrupts, and so will work with 
any software that does not disturb these 
interrupts. To use, type in the routine, 
and then CSAVE it immediately, as the 
program self-destructs when run. When 
the program is run, the pause facility 
becomes operational. 

The program works in the following 
fashion: 
@ Lines 10-20 lower the RAMTOP to 
create space for a short machine 
language program 
@ Lines 30-40 set the address for the 
interrupt exit 
@ Lines 50-80 POKE the machine 
language program into the memory 
@ Line 90 makes the interrupt 
operational 
@ Line 100 clears the Basic routine from 
memory. This is necessary to prevent the 
system crashing should the routine be 
RUN twice. 


458 msa | 
73 61/2 Hux ЕЗУІ Dee.) бфде Wa. еда латй a top a mmen Pointe. 
és FB Hae, в ta w addni of ДЕ key board raqay, fe = 


bit s 4 3 2 ! 9 


Corresponds ta, ү 2 С А» x B and Д, toli liar 4» low 


eu. a kiy is Фалих. 


21 44 mx LD HL SRH ; lad HA with тоз - pitch for Sound. 

& 44 қы LD 5C, оза H 3 lond BC with 9092  - дме MR Sound. 

34 FB а LD А,(ағвн) «check vow oddeus of keyboard matrix 

FE 79 CP 79H ; compare ad GV XD . aQ - л} Flas. 

Сә RET NZ СЕ if nok «ЭШ XP алд, — enl No T Sh? 
Cb 52 34 CALL 245СН j Сей Seed rovbing , 

34 ЕВ р ¿bop Lp А, (& B4) ; chik rom addres of Жырын brin, ON 
FE 73 CP. 33 H j емон with Qf С op р ~s Flags ден 
Jo Fa TR м2, coop  . $ al GO со ысуы, bak 7 byks K logo. 

21 Сї җә LD AL, СН, кә Hi, ый, дез Вы ра É. L soured 

8) 3С өң LD BC QICH ; Jew Be vith (eb - sheke decis, For cat oval. 

C» SÈ 34 CALA 345CH о сей Sound roubin , 


Ca, RET е 72 оғы 4: Mou et ом Rom точ кар, 
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COMPUTING TODAY 


VZ SOFTWARE 
MODIFICATIONS 


Fast Graphics on a VZ200/300? It can be done! Here is the 


good oil! 


Chris Griffin 


I BOUGHT A' VZ200 soon after they were 
released as an ‘upgrade’ from my old 6800- 
based CHIP-8 machine. But it soon became 
obvious something was missing. It seemed I 
could get speed or high resolution, but not 


both. I wanted something that was fast and . 


took full advantage of the 128 x 64 dot co- 
lour graphics; so, ‘VZChip-8’ was born. - 
VZChip-8 is а ‘low-memory’ interpreter 
(about 1.5K ай up), designed. for 
VZ200s/300s with only 8K of memory. Fig- 
ше 1 shows a memory map of a typical VZ 
computer‘running my Chip-8 ‘system’. No- 
tice thé presence of an editor: This is used 
to write your Chip-8 program and can also 
be used to write machine code programs. It 
is a separate program in its own right — a 
stand-alone component in the CHIP-8 sys- 
tem, so I have decided to discuss it first. 
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Тһе Chip-8/machine code 
editor . 

This program is about 1K long and allows 
you 'to work entirely independently of 
BASIC. In fact, it allows you to talk directly 
to the central processor. Programs are writ- 
ten in hexadecimal — or base 16, and con- 


` sist of a string of op-codes and arguments. If 


you don't understand you should get hold of 
a book on machine code programming for 
the Z80. 

The basic requirements of an editor are 
that it be able to write, run and modify pro- 
grams, print listings and save to tape or 
disk. І have included a few extras because I 
find them helpful, but otherwise, the editor 
consists only of these things. 

Editor commands consist of a single let- 
ter. Its features revolve around the memory 


гоз. 


pointer. This із just like ап arrow, pointing 

to a particular place in the У2/5 memory. 

The editor uses the arrow to indicate where 

it is to store or retrieve the information it 

needs. For example, if you want to list a 

program beginning at memory location 

8260, you first set the memory pointer to 

8260, then instruct the editor to list. How do 

you do all of these things? Easy; using the 

following commands: 

A prints out the ASCII value of the next 
character typed. 

B returns to BASIC; this is used for saving 

` -to disk and loading from tape or disk. 

D converts a hexadecimal number to its 
decimal equivalent. 

G is used to run machine code program. 

H help, prints out a message to remind you 

- of something. 

L lists memory to the screen, beginning at 
the memory pointer. 

M sets the memory pointer to a particular 
place. 

O outputs (saves) a program to tape; pro- 
duces B programs which run automati- 
cally when you CLOAD them. 

P puts data to memory, beginning at the 
memory pointer position. This com- 
mand is used for writing and modifying 
programs. 

S searches for a particular byte (or two), 
and points the memory pointer to the 
place where a match occurs. 

T type; the same as list, except to the 
printer. 

V vector; places the pointer at the memory 
location which is stored at the present 
pointer position. 

X eXtension; allows for user defined com- 
mands, and others; an extension is used 
to activate Chip-8 programs. 


Command extensions: Х 
Commands beginning with X are two 
characters long: the second character is а 


СНІР-8 
PROGRAMMING AREA 


СНІР-8 PROGRAM START 


CHIP-8 DATAPROGRAM 
AREA 


CHIP-8 INTERPRETER 


8200 ??М 

ADDRESS 

3450 P70 

ADDRESS = 8628 
8678 72S, 

VALUE = 5622 
FINISH = 

OCES ?% 

9СЕ5 22 2а 2: 
СЕО 98 FE Са 
@СЕ5 = 07 ƏS 21 1C 
GCFD F2 F6 ec 
2025 24 29 86 
арап 3A 1C 73 
9015 = 21 25 79 7E 
2010 22 C9 21 
@СЕ5 
ADDRESS : 
2000 ??Р 
2000 = 48 45 4C 4C 
2008 

2000 225 
EXTENSION HD 


0092000 


Figure 2. Some of the editor commands in 
operation. 


number (between 0 and F). Some X com- 

mands are already defined: 

XO prints out a message beginning at the 
memory pointer position; (all messages 
use the byte 00 to signify the end). 

XD directs all output to the video screen. 

XE directs all output to the printer; for in- 
stance, Figure 2 was generated in this 
fashion. f 

XC We shall use the XC command to acti- 
vate the Chip-8 interpreter but since it 
hasn't yet been installed XO just clears 
the screen. The process of adding your 
own X commands will become obvious 


‘when we discuss connection of the Chip- | 


LISTING 1. USING THE EDITOR 


% CHIP-8 INTERPRETOR PART I 

-? EDITOR PROGRAM 
' DON'T BRERK THIS PROGRAM ONCEIT 
› BEGINS RUNNING... 

, 


ял „һу = б 


CLS:PRINT@200, "PLEASE WaIT?9" 


19 6050858: IFA$z"XX" THENGOSUBSO :ОзХ :GOSLI 


BS@:0=0*256+x :GOTO10 

15 IFAS="22@" THENPOKE 30863, 112:РОКЕЗ0862, 
9 :G0T0O20 

20 POKEO,X:T2T*X:D-D*1:GOTO180.- | 

50 READAS: IFAS="XxX"ORAS="22" THENRE TURN 
51 X=ASCC(LEFTSCAS, 1) ]-48:B=ASCC(RIGHTS(AS 
122-48 

6@ х= (X+ (9 9987 1416 + C84 282327 

65 RETURN 

20 1FT=118389,PRINTUSR(1) 

25 CLS:PRINT"AN ERROR HAS BEEN MADE, CHE 
CK " 

80 PRINT"THE LISTING CAREFULLY” 

99 'HñIN PROGRAM LISTING 

188 DATAXX,20,00,01,30,04,21,00,22, 11,F0 
Í 8A, ED; Ве, СЗ, FD, 8A 

110 DARTAXX,22,00,C3, E5, 88, 7C, CD, 05, 8B, 20 
FS, 1F IF, 1F, 1F СО, 0E, 88 

120 ОАТЯЕ! ‚ Еб, е, Сб, 30, FE, ЗА, 38, 02, C6, 07 
:18,18, ES, C5, CD 

130 ОАТАЕЯ4, 2Е , ВЯ, 20, F8, СО, F4, 2E,B2, 28, FR 
› ВЕ, 38, 10, FE, 0D 

140 ОЯТЯ28,ЕВ,С1,Е!,СЭ,Е5, С5, CD, E4, 8E, 36 
; 20, CD, 2A, 03, 2A 

150 DATA20,28,36, АЕ ,C1, E1, C9, ES; C5, FS, CD 
390, 34, F1, 18, E7 

168 DATAES,CS,CD; 1A, 8B, 47,FE,0D, 28, 0B, FE 
,30, 38, F 4, FE, 3A 

122 DATA3@, 10, E6,0F,21,3E; 80, F 5,28, CD, 44 
;88,F I, FE, 88,C1 

180 CATAE1,C9,FE,41,38,0C,FE, 47, 30, 08,06 
107, 18,E4, 15, В? 

190 DATACB, СО, 32, 88, 13, 18, F7, CD, 00,88, 11 
; AO, BB, CD, 78, 8B 

200 DATA06,08,3E;20,CD; 32, 88, 7E, 23, CD, 05 
;:88,10,F 4, ЗЕ, 0D 

210 ОАТАСЗ, 32,88, 20, 30, 00, СО, 28,88, ЗЕ, 20 
ı CD, 32,8B, 21,00 

220 DATAGO, 06,00, CD, 40, 8B, СВ, 29, 29, 29, 29 
;:85,6F,04,18,F3 

230 DATA21, E3,76,;22, F9,28, 21, 07,8F , 22, 8E 
:28, 20, СО, F6,8E 

248 DATAAF , 32,9С,28, ЗЕ, 11, 32, ЗВ, 78, 32, 00 
‚68, ЗЕ, 03, 32,39 

250 DRT878,21,00;80, 22, 10,28, СЭ, F3, 31, FF 
:BF,CD,80,88;, 11 

262 DATADO, 80, СО, 78, 88, 2А, 18, 28, CD, 00, 8B 
111, 20, 8C, CD, 2B 

270 DATR8B, СО, 1A, ВВ, FE, 41, 38, F9, FE, 5B, 30 
3F5, 42, CD, 44,88 

280 DATA3E,80,CD,32, 8B, 21,31, 8C, 2E, FE, FF 
:28,08, 23,88, 28 

232 DATAO4, 23,23,18, F3, 56, 23, 56, 05, E1, CD 
, 26, 8С, 18, C6, ES 

зве DRTA20,3F,3F,00, 4C, 59, 8C, 40, 65, 8C, 47 


`, ВР, 8С, 53; 29,8C 


310 OATAS@,BD, вс, 56, 27, 80,41,32, 80,44, 53 
»80,4F,64,80, 48 
328 DATA46, 8E,42,4C,8E, 54, 57, ВЕ, 58, 98, ЗЕ 
»FF,2A;18,78,0E 
330 DAT^08,CD,84,8B, ер, 20, F^, C9, 11, 04, ВЕ 
‚ СО, 83,88, 22,10 
342 'DATA28,C9, 11, 0E, 8E, CD, A3, 88,28, B2, C8 
‚ЕЭ, 11,16, 86, CD 
358 DATAAS, 8B, 78,82, C8, FE, 03, F5, 30, 01, 65 


п ЕЗ8, 11, 1E, 86; СО 


368 DATAA3, 88, ЕО, 5B, 10, 78, 13, 78, B7, 20, 03 
12A, 10,28,С1,18 
320 DATA13,B8, 20, 0F , F1, 38, 06, FS, 1A, , 89, 20 
‚@7,Е1, 18, ED, 53 
388 ORTA10,78,C9,DF, 20, E38, 11,27, 8E, сз, 28 
,8Б, 00,00,00,00 


_ 440 DATR3E» RF, 18, ЕЕ, FS, 


392 ОРТА?А, 19, 78, 96, ва, CD, 00, BB, i1, 10, 8D 
Í, СО, 7B, 8B, 3E, 08 

482 DATAFS, ЗЕ, 20, CD, 32, 885; CB, 78,20; 20, CD 
; 15,88, FE, 22,28 

418 Олтар, ёе, ёа, СО, 18, 80, 28, 14,57, 82,82 . 
3825 F5,CD, 40, 88 

420 DAT^01,28,03,82, 22, 23,F1, 30,28,06, 18 


322, Е1; СЭ, CB,F8 


430 ОАТАЗЕ, 41, CD, FF, 8E, I&; CF, CD, 18, 8B, F€ 
‚22,20, 06, CB, B8 

CD,44, 8E; Fi, 18, 09 
;£5,C5,C3, 52, 8B 

450 DRT^20,30,00,3E,00, CD, 32, ВВ, 18, 98, 2А 
,10,28,2Е,23,66 

462 ОАТАбҒ, 22, 18,78, С9, 11,32, ВЕ, СО, 28,98 
‚ СО, я, ВВ, FS, CD .: 

470 OATA44,8B, ЗЕ, ВО, СС, 32,88, 11, 16, 8Е,СО 
,2B,8B,F1, CD, 05 

488 DATASB, 3E, 00, СЗ, 32, 88,11, 49, 8E, CD, АЗ 
:88,11,16, 86, СО 

492 DRT82B,8B,CD, RF,0F , 18, ER, 11; 39, 8E, CD 
.28,88,21,90,28 

500 DAT^06,10,C0, 18, 88,Ғ5,С0,44,8В,Ғ1,ҒЕ 
01» C8, FE, 0D, 28 

510 DATAG4,77,23,18,ED, 36,48, 36,11, 90, 32 
‚06, 76,11, ВЕ, ВЕ 

522. ОАТАСО, АЗ, 88, ES, 11, IE; 8E; CD, 63, 8В, F3 
; 9E,F1, CD, 5B, 35 

530 DATAD!,CO,A3,80,F3, сз, 08,01, 3A, 01, 4B 
:23,B0, 20, ЕВ, DD 

540 DATA2), 23, 78, 28, СО, 11,35,00, 72, 00, RF 
»00,77,81,7A,CD 

550 ОАТАО?, 80,70,C0,07,80,7C,C0,07,80,CD 
‚ЕВ, ЗА, 08, 1А, 13 

560 OATACO, 07, 80, ОЕ, 28, F4, ES; C3, ҒА, 34. CD 
,11,35,С3,8Е, 38 

570 DATAIF, 56, 5A, 20, 32,30, 30, 20, 48, 45, 58 
:20,45,44,49,54 

580 ОРТАЯҒ, 52,80, 56, 45,52, 28,32, 2E, 31, 0D 
‚ 28,43, 29, 28,43 

590 DATA47, 22, 38, 35,80,80, 00, 41, 44, 44, 52 
‚45, 53,53, 20,30 

бав батаа, 53,54, 41,52, 54, 20, 30, 00, 56;41 
4C, SS, 45,20, 30 

618 DATAA, 46, 49, 4E, 49, 53, 48, 20, 30, 00, 4E 
» 4F 54, 20, 46, 4F 


-620 DATASS, 4E, 44, 00, 00, 43, 48, 41, 52, 20,30 


,88, 4E, 41, 4D, 45 
630 DATA2Q, 30,80, 48, 45,58, 20,30, 88,11,64 
‚ВЕ, СЗ, 28,8B, FB 

640 DATACD, 7A, 1E, £0, 78, E8,28,C3, 19, 10,21 
,9С,78,36,81,Е5 

650 DATACD, 59,8C, E1, 36, 00,C9, 43, АЕ , 4D, 4D 
,41,4Е, 44,53,20 

662 ОАТА41,52,45,00,41,2С,42,2С, 44, 2C, 42 
;2€C, 48, 2C, 4C, 2C 

680 DATA4D, 2C, 4F , 2C, 50, 2C, 53, 2C, 54, 2C, 56 
;2€,58,0D, 80, 45 

690 ОАТА58, 54,45, 4Е, 53, 49, 4F , 4E, 20, 23, 00 
‚11, 8C, 85, СО, 28 

708 DATA8B, CD, 40, 88, C8, 87, Сб, RF, GF, 26, 8E 
,Ғ1,С0,4Е,80,С3 d 

10 OATA22,8C,DA, 8E, E4, 88,E4, 88, £4, 8B, E4 
„ВВ, E4, 8B, E4,8B 

220 OATAE4, 88,64, 8B, E4, 8B, E4, ВВ, E4, ЗВ, СЭ 
‚91,05, 8E, CF,8E 

730 OATAE4, 8B, ЗЕ, 91,32, ЭС, 78, 59, AF, 32, 9C 
, 28, C9, ED,58, 18 

242 ORT^28,CD, 7B; 8B, Q3, 4E, 8D, 2А, 20, 78, 42 
‚ ЗА, ЭС, 28,82, 78 : 

252 DATAC8, ЕЕ, 80,08,С6, 20, E6,2F, 9, 21, FC 
;86,22, B1, 28,20 

260 DATA18, 12,32, 48, 8В, 3E, 01, 3, 44, 8B, F3 
;31, FF,8F,CD,CD 


8 interpreter. Š арал; š ` Н rm 
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Errata + Listing 


NOTE: We have had complaints from read- 
ers who could not get the editor listed last 
month running. Printed below are correc- 
tions to lines 70 and 380, and two new 
lines 770, 780 to be added. As well as this, 
we understand that in some issues of the 
magazine, the figure 32 between 90 and D6 
in line 510 was printed so indistinctly as to 
look like 37. So if you have any problems 
after amending the listing, check line 510. 


CORRECTIONS TO THE ‘EDITOR’ 
LISTING. 


THE FOLLOWING ARE THE CORRECTED 
LINES. 


70 IFT = 118550, PRINTUSR (1) 


380 DATA10,78,C9,DF,20,E9,F1,11, 
27,8E,C3,7B,8B,00,00,00 


770 DATA8B,C3,Ec,8B,2D,22,A0,78, 


C9,00,00,00 
780DATAZK 


NB. THE LAST TWO LINES NEED TO 


BE ADDED TO THE PROGRAM. e 
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COMPUTING TODAY 


Using the editor 

Key in the listing given (Listing 1), save a 
copy of it, then run the program. You will 
have to wait a while, until everything is set 
up. If anerror results, check the listing care- 
fully. An introductory message will be 
printed when the editor is installed. Save a 
copy in this form to tape or disk. To do this 


tape users should type: OVZEDITOR (cr) | 
8AFD (cr) 8F30 (cr), where (cr) means the’ 


RETURN key. The last (cr) is not typed until 
the tape recorder is on and in record mode. 

Alternatively, type BBSAVE 
“VZEDITOR” 8AFD,8F30(‘cr’). Both Bs аге 
essential. The first is needed to exit the edi- 
tor. This step eliminates the delay from oc- 
curring every time the editor program is 
run. It saves the machine code part, pro- 
duced by Listing 1, to the relevant medium. 


Commands К 

Now, try out some commands: particu- 
larly M,L,H and T (if you have a printer). It 
is a good idea not to use the G or K com- 
mands just yet. 

You will find that many commands 
prompt for ADDRESSes, START locations, 
STOP locations, etc. The answer accepted 
by the computer consists of the last four 
digits of whatever is typed in. If you meant 
to type 88D8, and instead, entered 8BE, 
just type in the right response and the prob- 
lem is fixed, so that 8BE88D8 is interpreted 
as 88D8. This is important because the edi- 


tor is riot equipped with a backspace facility. 

The P command, as I said before, allows 
you to put data in memory. To test it out, 
set the memory pointer to 7080 (use M7080 
(cr)) and type P, Now, type in the following 
data: 48454C4C4F (cr). Notice that the 
word HELLO appears on the screen as you 
type. You have stored the ASCII values for 
HELLO at location 7080-7084, which is in 
screen memory. 

How did I know to use 4845 ...? I 
looked it up; but that's a laborious task if 
you want to enter lots of words into memo- 
ry. Instead, you can use an easier form: type 
M70CO (cr) P", the ” (shift 2) allows for 
character data entry — the computer does 
all of the conversions for you! (Notice that 
while in this mode, the normally blue cursor 
turns into an ‘A’.) After typing in the re- 
quired word, pressing another " returns the 
cursor to blue again, so you can enter hexa- 
decimal data as usual. 

S is used to search for one or two bytes, 
depending on what you type in, from the 
memory pointer to the end position (which 
you also type in). If a two-byte search is re- 
quired, make sure the search string is more 
than two digits long. For example, to search 
for 6A00 in the region of memory 8200 to 
8500, type M8200 (cr) 56.00 (cr) 8500 (сг). 
The message NOT FOUND means that 6A00 
could not be found anywhere between loca- 
tions 8200 and 8500. e 


| IMPORTANT EDITOR MEMORY LOCATIONS | 


The editor has а small collection of useful subroutines. These can be used when prototyping а Chip-8 
program or when writing machine code programs. Care should be taken to ensure that calls to these 
subroutines are not present in the final program, unless the editor is to be included in the final program. 


Description 
Jump location, COLD START. 


isters altered 
L,BC,DE,AF 


Show HL register pair as a hexadecimal value. AF 
Show A register as a hexadecimal value. AF 
Wait for a key press, A contains the ASCII value of the key that AF 


was pressed. 
Show the character stored in A. 
Show character in A, and 


beep. ; 
Get a hexadecimal key (0-Ғ, or (cr)) and put the value in A, A AF 


equals 80 if (cr) is pressed. 


none 
none 


Show a string using DE as the pointer, up to the character stored DE,AF 


as 00. 


Shows a message off DE, and gets a two-byte number from the 


` HLBDEAF 


keyboard; the number is stored in HL, while B contains the 


number of keys pressed. 


The following locations contain prompt messages used by the editor. Each message consists of 
a string of ASCII characters ending with the byte 00. These messages can be changed to suit your 


own personal requirements. 
Locstion Length Description 
8000 38 
8Е64 39 
8C2D 3 
Example: to change the help message, type 


begins. 


Introductory message; this is the heading displayed when the editor first 


Help message; ће 39 characters here are reserved for a simple memo which 


is called up by pressing H. 
Prompt string, normally consists of a space and two question marks. 


M8E64 (cr) P''this is the new message (cr) "00 (cr) 


Make sure that whatever you type 
Next month: the CHIP-8 interpreter. 


as the message is less than the maximum size of 39 characters. 
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CHIP-8 INTERPRETER 


A CHIP-8 
INTERPRETER 


— for VZ200/300 


Chris Griffin 


How's it going? Did you get the editor from the last article in 
August '86, typed in, up, and running? If you had any trouble 
refer to the note at the end of the article. In this article | use 
.the editor to set up the Chip-8 interpreter, to write and run 
Chip-8 programs. | will also mention details of this particular 
dialect and show a few simple programs to get you started. 


THE CHIP-8 interpreter (Listing 1) is a 
machine language program which executes 
instructions beginning at location 8200 
(this is in hex — remember!). The inter- 
preter has an ‘address space of 4K, mean- 
ing that it can only access 4096 bytes of 
memory. Therefore only three hex digits 
are required to specify an address. 8200 is 
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referred to as 200 by the Chip-8 interpret- 
er, 54A refers to 854A, etc. So, if from 
time to time, I drop the leading 8, don't 
be too bothered about it! 

Each Chip-8 instruction consists of two 
bytes of hexadecimal data — a total of 
four digits. Between 200 and AFC, the 
locations in which a program may be 
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stored, there is thus room for about 1150 
instructions. You can also use locations 
(8)000 to (8)1FF to store parts of the pro- 
gram,-but never forget that execution is 
from location 200, so you'll have to use 
this section of memory for subroutines or 
shape data. 

. Chip-8 is a ‘what you write is what you 
get sort of language in that there is no 
way to break out of a program that is run- 
ning, unless you have allowed for this pos- 
sibility. This is one aspect that could take 
a little getting used to, but don't worry, 
you will! The Chip-8 interpreter has in this 
regard a trade off. A little speed is gained 
in the sacrifice; and for me, the speed is 
worth it! 

The language of Chip-8 supports only 16 
variables, an index register, and a stack 
pointer (which is rarely used in programs 
— it is more useful to the interpreter it- 
self!). 

The variables, labelled by a 'V', fol- 
lowed by a number (0,1,2...D,E or F), are 
each one byte long. They can only be used 
to store numbers in the range 0 to 255, so 
all operations involving variables are lim- 
ited in this way. If any extra space is re- 
quired to store the answer to a calcula- 
tion, VF is used for the extra piece. (It is 
called the carry, and is only relevant to a 
few arithmetic commands. Larger number 
manipulation is available to a limited de- 
gree, using the index register called ‘Г. 
This is a 12-bit number (3 hex digits) and 
is used to point to memory locations in 
much the same way that the editor pro- 
gram has a memory pointer. When you 
store 6BO in the index register, it points to 
location 86В0, as might be expected! The 
index register is an important part of the 
System as it is used extensively in graphics 
manipulation; it also allows more than 16 
variables to be used by a single program, 
if desired. 

OK, now let's get things up and run- 
ning! 


Getting started 
Load your copy of the editor program 
(ETI August 86 issue), and run it. Then, 
type in Listing 1 beginning at location 
7AE9 (type M7AE9 (cr) P then the data 
shown in the listing). Check the things 
typed, to make sure they are correct and 
type in the following: 

(i) M9BDF (cr) P0082 (cr) 
This sets the memory pointer to 8200 
whenever the editor is run. 

(ii) M8EC7 (cr) PE97A (cr) 
This connects the Chip-8 interpreter to the 
editor, allowing it to be activated by press- 
ing XC. 8EC7 is the location which con- 
tains the start address for thé routine 
which we want activated by XC — and we 
store 7AE9, the interpreter start address, 
here. By the way, locations 8EBF to 


8ECD contain the start addresses for all of 
the X commands (XC through XF), so it's 
easy to add your own! 

(iii) M8200 (cr) PF000 (cr) 

A very short Chip-8 program, just to test 
things out. 

Now, save everything. Use OVZCHIP8 
(cr) 7AE9 (cr) 8F30 (cr) if you have a tape 
system, or use BBSAVE “VZCHIPS”, 7AE9, 
8F30 (cr) if disks are your forte (after sav- 
ing to disk, you can restart the editor with 
?USR(O)). 

Let's run the Chip-8 program entered in 
(ii) above, by pressing XC. The screen 
should have flashed, and the editor re- 
started. If it has, so far so good. If not, 
check that the interpreter you typed in is 
the same as mine! Tape users will prob- 
ably have to start all over again!! (This is 
because B: programs run automatically 
from tape, but not from disk.) When 
everything works thus far, read on... 


Chip-8 graphics 

Graphics takes place on the VZ's mode 1 
screen. The individual points are labelled 
with two coordinates in exactly the same 
manner as BASIC (except, everything is 
in hex). Chip-8 allows you to display 
points (like BASIC), entire shapes (of up 
to 8 x 16 dots) and line drawings in 256 
sizes (although there are some restric- 
tions!) in any combination of colours you 
care to ішаріпе. (Of course, only four co- 
lours can be used at once in this mode — 
there is little that can be done about this.) 
An object can be positioned anywhere on 
the screen, even overlapping another ob- 
ject. Overlapping objects are stored on 
the screen in exclusive-or form. Table 1 
shows the consequences of this in colour 
mode 0 (COLOR, 0), which is read as: ‘if a 
red object is placed on a blue area of the 
screen, the overlap is displayed in yellow’ 
etc. Funny idea? Not really! These condi- 
tions allow you to remove objects by sim- 
ply re-displaying them. If we number the 
colours 0 for green, 1 for yellow, 2 for 
blue, 3 for red, and change to COLOR, 1 
mode the same sort of ideas apply to buff, 
cyan, magenta and orange. 

A collision occurs if the following pairs 
of colours overlap: 1&1, 2&2, 3&3, 3&1, 
3&2. Collisions are registered through an 
object called ‘HIT’. HIT equals 1 means 
that there has been a collision, HIT equals 
0, otherwise. After a graphics command 
has been executed, HIT is stored in VF 
(variable F), to allow you to check for col- 
lision with Chip-8 instructions. 


Shape drawing 

A ‘SHAPE’ is eight dots wide, and be- 
tween. 1 and 16 dots long, and is consid- 
ered as residing in a grid (see Figure 1 for 


TABLE 1. COLOUR OVERLAP 


Оуепар- | Green Yellow Blue Red 


Green Yellow Blue Red 
Yellow | Yellow Green Red Blue 
Blue Red Green Yellow 


Red Blue Yellow Green 


an example 8 x 9 shape in its grid). Each 
row of the shape is represented by two 
bytes of data, that is, four dots to each 
byte. The colour of each dot can be inde- 
pendently defined using the number of the 
colour that is required. 

For the first row of the shape down, we 
have two green dots (which are in essence 
invisible) five blue dots, and one green 
dot. The colour codes are 0,0,2,2,2,2,2,0. 
Group this information into clusters of 
two digits: 00 22 22 20, then for each clus- 
ter, multiply the first digit by 4 and add 
the second to it, giving 0 A A 8 in our ex- 
ample. The two bytes used to describe this 
row are thus ОА and А8. Every other row 
is complete in exactly the same manner 
and the data stored in a segment of 
memory. 


Figure 1. Example of a nine row shape (a 
robot figure). Each square is filled with the 
colour that is desired. Those with no colour are 
green by default, as this behaves invisibly. 

Y — yellow colour value is 1 

B — blue colour value is 2 

R — red colour value is 3 

The last row, for example, is 00300030, which 
is 0C0C in hex. 


To put this shape up onto the screen, 
we set the index register | to point to the 
first byte of the shape data, and use a 
SHOW command. From the table of 
Chip-8 commands (Table 2), it is obvious 
that the SHOW command is Dxyn, but 
what does that mean? An example should 
make this clearer: D456 will show a 
shape, six rows long. with the top left 
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hand corner at (V4,V5). If we want to dis- 
play the example shape at (V3,V4), then 
use the command D349 — the 9 means 
that our shape is nine rows long. 

Let's write up a real Chip-8 program 
now. 


Writing Chip-8 programs 

To write a Chip-8 program, simply put the 
instructions, one after another, in memory 
from location 200 onwards. Consider the 
short program that we typed in earlier; 


“pressing XC did nothing much, so what 


was the Chip-8 program? Well, it con- 
sisted of the single instruction F000, which 
from Table 2, ‘jumps back to the editor, 
or restarts the program if the editor is not 
found' — in other words: END! So, that's 
why nothing much happened! For a real 
program, see Listing 2a. Type this one in 
(from 8200), and run it XC. You should 
get the picture we designed earlier in the 
top left hand corner of the screen. Press a 
key, and the program ends. Do you un- 
derstand what went on? The comments 
given may be of some help! Notice that 
we didn't need to switch on mode | graph- 
ics — it's automatic! (Chip-8 operates en- 
tirely in this mode.) For more examples, 
we need more concepts so read on. 


Colour registers 

The colour register is another VZ/Chip-8 
object — like HIT. This, however, is used 
to store colour data for some commands 
(Fx29, 8xyD and 8xyE). The register takes 
on the following values for colours: 00 — 
invisible or colour 0, 55 — colour 1, AA 
— colour 2, FF — colour 3. All other 
values give combinations of these, and are 
best experimented with! To load the co- 
lour register with 55, we could use the fol- 
lowing sequence of code. 6F55 FFCC, 
which says, load VF with 55, then load the 
colour register with VF. Once the colour 
is set, we can use 8xyD to plot a point, or 
Fx29 to draw a number, in the colour that 
we have defined. Type in and run Listing 
2b for an idea of colour register graphics 
operation. 


Joysticks and keyboard 

The command ЕхВ4, reads both joysticks 
at once, and assigns Vx to one of the fol- 
lowing values, depending on the joystick 
position: 00 — nothing, 2E — up. 20 — 
down, 4D — left, 2C — right, OD — fire. 
These codes were chosen as they corre- 
spond to the cursor control keys on the 
VZ keyboard. Using ExB3 instead of ExB4 
reads the keyboard and allows the result 
of this command to be treated іп an iden- 
tical manner to the ExB4 command it re- 


places. The break key returns a value of 


01 if it is pressed, so it too can be easily 
tested for. 
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Printing out numbers 

See Listing 2c for an example of number 
printing. The Chip-8 interpreter has shape 
data for the numbers 0,1,2,3...D,E,F au- 
tomatically built in. All that is required is 
to retrieve them. The statement Fx29 does 
just that: retrieves the shape data for the 
last digit of Vx. If V8 is 7A, F829 re- 
trieves data for the number A, and sets 
the index register to point to the place 
where the retrieve data is stored, so that 
the next display command will show the 
correct thing. (The data is stored in sys- 
tem memory and will never get in the way 
of one of your Chip-8 programs.) That’s 
OK for single digit numbers. But what 
about bigger ones, like 8A, EB etc, or 
even decimal numbers (for game scores, 
for instance)? 

The process of printing decimal numbers 
is easy, but fairly long, if you write in 
Chip-8. See Listing 2d, which repeatedly 
counts from 0 to 99, for an example. 
Some important commands are the follow- 
ing. 

(i) Fx33, converts Vx to a three digit 
decimal number, and stores each digit in a 
different memory location, pointed to by 
the index register. The hundreds get 
stored at I, tens at I plus 1, and units at I 
plus 2, so that if we could load these 
values into variables, each digit could be 
displayed in the usual way. 

(ii) F265 loads the memory from I, into 
variables V0, V1 and V2. VO contains the 
hundreds, V1 the tens, V2 the units. We 
can now easily display each digit. 

Notice also that the printing process is 
put in a subroutine at location 228, this 
saves me repeating the whole process in 
order to remove the numbers. (Recall: to 
remove things in Chip-8, simply re-display 
them.) 


How to draw large shapes 

8xyE is a command designed to draw large 
shapes on the graphics screen. Often, the 
object to be drawn is simple in structure, 
yet too big for a single 8 x 16 dot shape so 
under these circumstances, this command 
is used. 8xyE uses data pointed to by the 
index register, and also a ‘SIZE’ value 
stored in VF, to draw the shape from the 
point (Vx, Vy). WF equals 1 allows the 
shape to be drawn exactly as defined. VF 
equals 2 draws the shape twice the size in 
both x and y directions, etc. Shape data is 
given by a series of bytes, from two to as 
many as required. (Shape data for this 
command has no maximum length.) The 
last byte is always 00, required to tell the 
interpreter when the end has been 
reached! Each byte, which is made. up of 
eight bits, contains eight pieces of infor- 
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x TABLE 2 — VZ/CHIP-8 COMMAND SUMMARY 


0000 No operation. Does nothing. 

00А0 Store | on the subroutine stack. 

00А8 Take | off the subroutine stack. 

OOAE Load | with the subroutine stack pointer. 

00С0 Set colour to set 0 (green background). 

00C1 Set colour to set 1 (buff background). 

00Е0 Clear the screen. 

OOEE Return from a subroutine. ш 

Оппп For nnn larger than OFF, calls а machine 
code routine at location 8nnn. Allows user 
machine code subroutines. 

1nnn Go to 8nnn. 

2nnn Go sub 8nnn. 

3xyy Skip the next instruction if Vx equals yy. 

4xyy Skip the next instruction if Vx does not 
equal yy. 

5ху0 Skip the next instruction if Vx equals Vy. 

6xyy Load Vx with yy. 

7xyy Add yy to Vx. 

8xy0 Load Vx with Vy. 

8xy1 Load Vx with Vx OR Vy. 

8xy2 Load Vx with Vx AND Vy. 

8xy3 Load Vx with Vx XOR Vy (exclusive or). 

8xy4 Load Vx with Vx plus Vy (the carry is 
stored in VF). 

8xy5 Load Vx with Vx minus Vy (the carry is 
stored in VF). 

8xy6 Load Vx with Vx multiplied by Vy (carry is 
in VF). 

8xyD Piot a point at coordinates (Vx, Vy) with 
colour as in the colour register. 

8xyE Draw a shape with data pointed to by |, 
of size VF, beginning at the point (Vx, Vy). 

9xyO Skip next instruction if Vx does not equal 
Vy. 

AnnnLoad | with 8nnn. 

BnnnGo to 8nnn plus VO. 


TABLE 3. PITCH/DURATION VALUES FOR SOUND COMMANDS 


3C HIE OF 


79 


(Other octaves can be approximated by halving and doubling the pitch and duration values.) 


Cxyy Load Vx with a random number ANDed 
with yy. 

Dxyn Show a pattern with data pointed to by |, 
consisting of n rows with the top left hand 
corner at (Vx, Vy). 

Ex9E Skip the next instruction if Vx equals the 
key that is down. 

ExA1 Skip the next instruction if Vx does not 
equal the key that is down. 

ExB3 Load Vx with the key that is currently 
down. 

Ex84 Load Vx with the present joystick posi- 
tion. 

F000 Jump back to the editor or restart the pro- 
gram if no editor is present. 

Fx02 Set the sound pitch to Vx. 

РхОА Wait for a key to be pressed and load Ух 
with that key. 

Fx18 Beep for Vx cycles. 

Fx19 Produce white noise (hiss) for Vx cycles. 

Fx1E Add Vx to 1. 

Fx29 Produce a digit pattern for the last digit of 
Vx and point ! at this pattern (colour is 
given by colour register). 

Fx33 Convert Vx to a decimal number and 
Store each digit in a different byte (100s, 
10s, 1s in 3 bytes from 1). 

Fx55 Store VO through Vx to memory pointed 
to by | (on completion, | is | plus x plus 


1). 
Fx65 Load VO through Ух from memory 
pointed to by | (on completion, | is | plus 
x plus 1). Opposite of Fx55. 
FxCC Load the colour register with Vx. 
Any other commands should be avoided — 
their functions are not defined, but in general, 
they do not represent no operation. 


PLOT | LEFT | RIGHT | DOWN FOUR | Two | owe | 


Figure 2. 8xyE allocation of bits. A 1" in the bit position activates the associated words, eg. PLOT 
UP and LEFT 5 is 11001101. 


mation; Figure 2 gives the key to this. The 
process of drawing a shape involves direct- 
ing an invisible cursor about the screen (in 
eight possible directions), leaving trails as 
we go if required! A typical instruction to 
the cursor might be: PLOT UP 2 DOTS, 
which is coded as 1 00 0 1 0 1 0 using 1s 


5. 


and Os. То get this in hexadecimal form, 
group data into groups of four : 1000 
1010. For each group, convert the binary 
number into hexadecimal, in this example: 
8A. х 

Example: А square. То draw а square, 
imagine the following cursor instructions: p> 


LISTING 1. 


PLOT RIGHT 1 DOT, PLOT DOWN 1 
DOT, PLOT LEFT 1 DOT, PLOT UP 1 
DOT, END. From Figure 2, the codes 
аге: 10100001,10010001, 1100 
0001, 10001001, ‘00’. That is: Al 
91 СІ 89 00 іп һех. Тһе program shown іп 
Listing 2е uses this data to draw squares 
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of random sizes all over the screen — try 
it! 


Using sound commands 

Table 3 shows pitch and duration values 
used in VZ/Chip-8 sound commands. The 
values given here are not tuned to a stand- 


Achse 


ard pitch, but are chosen so that the scale 
sounds reasonably tuneful when played. 
To play a note, of duration V 1, at pitch 
V2, use a segment of code like: F292 
F118. Be sure to use the correct duration 
for the pitch under consideration, other- 
wise your tunes will sound uneven! You 


Аны 


LISTING 2а. 
8200 — 6А 00 — put '00' to УА 
A2 0А — point 1 at 820A, the start of the shape data 
DA A9 — show a nine row shape at (VA,VA) ie (0,0) 
FB 0A — wait for a key to be pressed, store its value in VB 
F0 00 — end 
820A — ОА A8 
09 98 
0A A8 
00 C0 
03 FO data for the shape in Figure 1. 
3C CF 
00 C0 
03 30 
0C 0C c e: 


LISTING 2b. RANDOM DOTS 
8200 — CA 7F — put a random number (less than 7F) to VA 
CB 3F — put a random number (less than 3F) to VB 
CC FF — put a random number in VC 
FC CC — load the colour register with VC (ie: random colours) 
8A BD — plot a point at (VA, VB), a random screen position 
EF B3 — scan the keyboard and load the key pressed into VF 
ЗЕ 01 — if that key is '01' (the BREAK key), skip the next instruction 
12 00 — otherwise, go back to the start (plot another point) 
FO 00 — end; If BREAK key is down, the program will end 


LISTING 2c. SCREEN FULL 0” NUMBERS 
8200 — 6F AA 
FF CC — load colour register with blue 
6A 00 — '00' to VA 
6B 00 — '00' to VB 
8208 — 6C 00 — '00' to VC 
820A — FC 29 — prepare to show VC as a number 
DA B5 — show the number at (VA, VB) 
7А 08 — increase VA by '08', the next number will be beside the one just shown 
7C 01 — increase VC by '01', the next number to display is one more than the last | 
3C 10 — if the whole row has been shown, skip next instruction | 


12 ОА — otherwise, до back to 820А and show another number | 


7B 08 — prepare to show on next row; increase VB by ‘08’ 
3B 40 — if we have finished the last row, skip next instruction 
12 08 — otherwise, go back to 8208, begin a new row 

FF 0A — ІШІ screen; wait for a key to be pressed 

FO 00 — end 


LISTING 2d. COUNTING 

8200 — 6F FF FF CC бА 00 22 28 6B 00 6С 00 7C 01 3C 00 
8210 — 12 OC 7B 01 3B 06 12 0A 22 28 7A 01 4A 64 6A 00 

8220 — EF B3 3F 01 12 06 FO 00 A2 40 FA 33 A2 40 F2 65 

8230 — 6B 00 6C 00 F1 29 DB C5 78 04 F2 29 DB С5 00 EE 
8240 — 00 00 00 00 


LISTING 2e. LOTS OF SQUARES 

8200 — 65 FF F5 CC 6A 00 C6 7F C7 3F C5 1F 86 55 87 55 
8210 — 85 54 75 01 ВЕ 50 A2 24 86 7E 7A 01 ЗА 20 12 06 
8220 — FF 0A FO 00 A1 91 C1 89 00 00 


LISTING 2f. CHIRP 
8200 — CE 07 7E 02 CA OF FA 02 FE 18 7A 01 3A 18 12 06 
8210 — EF B3 3F 01 12 00 ҒО 00 


Sos, 


don’t have to stick to the pitch and dura- 
tion values shown in Table 3, so other ef- 
fects, such as sirens, can be created. A 
sample sound program is shown in Listing 
2f: 


Saving completed programs 
When you have written a program, and 
are satisfied. that it does what you want, 
save it. There are two options here: 

(i) Save the program with the editor. 
This is for programs which still have not 
been fully finished. Save all memory from 
7AE9 to 8F30. 

(ii) Save the program without the editor. 
This is for complete programs, only save 
memory from 7АЕ9 to the end of your 
Chip-8 program. 

In either of the above cases, tape users 
will have to put up with the program run- 
ning whenever it is loaded, so if the pro- 
gram is incomplete, make sure it ends 
otherwise you will never be able to edit it! 


NOTE: We have had complaints from read- 
ers who could not get the editor listed last 
month running. Printed below are correc- 
tions to lines 70 and 380, and two new 
lines 770, 780 to be added. As well as this, 
we understand that in some issues of the 
magazine, the figure 32 between 90 and D6 
in line 510 was printed so indistinctly as to 
look like 37. So if you have any problems 
after amending the listing, check line 510. 


CORRECTIONS TO THE ‘EDITOR’ 
LISTING. 
Я АВЕ ТНЕ СОННЕСТЕО 


70 IFT = 118550, PRINTUSR (1) 


380 DATA10,78,C9,DF,20,E9,F1,11, 
27,8Е,С3,78,88,00,00,00 


770 DATA8B,C3,Ec,8B,2D,22,A0,78, 
С9,00,00,00 
ТВООАТАХ& 


МВ. THE LAST TWO LINES NEED ТО 
BE ADDED TO THE PROGRAM. 


Those who couldn't be bothered typing in List- 
ing 1 can get a copy (tape only) by writing to 
‘Chris Griffin, PO Box 233, Diamond Creek, 


Victoria 3089' and including $5 with the letter 
(for postage, packing, tape, and my time!). 
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Hardware and software 
aspecis of screen handling 
on the VZ-200/300 Part 1 


Bob Kitch 


This article describes the hardware aspects of the Motorola MC6847 
Video Display Generator chip which is used in a number of 
microcomputers. Although this is an older device and lacks some of the 
features of newer chips, it is nevertheless a well-used device and is quite 
easy to interface and comprehend. To illustrate the MC6847, its use in 
the VZ-200 and VZ-300 computers is detailed. Additionally, some 
software implementations are explained and some simple hardware 
modifications to the VZ are given to improve screen resolution and 


display appearance. 


THE MOTOROLA МС6847 Video Display Generator (VDG) 
chip (sometimes referred to as a Cathode Ray Tube Controller 
— CRTC) is used to interface data read from the video RAM 
section of memory and to produce a modulated RF video sig- 
nal or monitor output. The MC6847 is capable of operating 
in 14 different display modes. However, only a few of these 
are usually implemented in a particular installation. The 
MC6847 was conceived as one of the family of devices to in- 
terface with the Motorola M6800 and M68000 microproces- 
sor families, but it can easily be adapted to other 
microprocessors. The VDG can be found in video games, 
home computers, process control displays, communications 
and graphics applications. 

The VDG has the complex task of converting data from the 
screen memory into the form necessary for the raster scan 
display used in television and monitors. On these devices, 
the image is ‘drawn’ on the screen one horizontal scan line 
at a time. The 'spot' moves across the screen from right to 
left and its brightness or colour (chroma) is varied to produce 
the required display. In practice, the whole screen is built 
up in two passes, the first on even-numbered lines and the 
second on odd-numbered lines, by a process called ‘interlac- 
ing’ which helps to avoid flicker. The process occurs every 
20 ms, or 50 half-frames are drawn every second. 

Two types of VDG chip are produced by Motorola — the 
МС6847 for non-interlaced displays and the MC6847Y which 
interlaces the video display. the suffix ‘P’ after the device 
number identifies a plastic package. An enhanced version 
— the MC6847T1 — is also available but it is not strictly com- 
patible with the MC6847 as it requires less external circuitry 
and has some additional features. 

A timing or clock pulse is required to tie the scan rate and 
memory access cycles of the VDG in with that of the 
microprocessor (MPU) — otherwise chaos would reign on 
the bus systems! An external (to the VDG) clock is used to 
synchronise both the VDG and the MPU. Aclock frequency 
of 3.58 MHz is usually selected to give the correct scan rates. 
If a common clock is used then often the speed of the MPU 
is restricted by the video display. 

The format of the display area under the control of the VDG 
is actually 256 ‘dots’ across by 192 ‘dots’ down giving a total 
of 49 152 fundamental picture elements (pixels) under the 
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%-- 256 DOTS —> 


DISPLAY AREA 
(49 152 dots, oll under VDG 
control іп all modes. Each 
one of up to 8 colours when on, 
depending on mode.) 
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ж One on each non-interlaced line. For interiace, the lines of the odd 
field are copied into the even field thus doubling the number 
of displayed dots. 
Flgure 1. Typical Format of the Monitor Screen. The border 
is black in Alphanumeric and Semigraphic modes and 
green or buff in Graphlc modes. 


'control' of the VDG. Each pixel may be one of up to eight 
colours, depending upon the mode selected (see Figure 1.). 

As you will have observed, the MC6847 does not utilise the 
entire video screen. The standard video screen consists of 
262 scan lines extending across the screen, but the usable 
display window is offset from the top by 25 lines and extends 
192 lines down the screen with a further 25 linesat the bot- 
tom being offset. Across the screen, the timing pulses are 
blanked-off to reduce the useable horizontal width. The 
linearity of images is better in the central portion of а screen 
and this is used by the VDG. 

The screen is 'memory mapped' with each pixel on the 
screen being represented by a byte (or a number ofits there- 
of) in the video RAM. There is a one-to-one correspondence 
between the X-Y location of the pixel on the screen. and the 
address of its control information in memory. Тһе equence 
of memory addresses, which are accessed to extract data to 
be converted to a video signal, is controlled by the y DG. The 
VDG also keeps track of the position of the moving s pot and 
produces the necessary timing signals to synchronise the dis- 


play to the computer. It produces, for instance, thy ногі2оп- p> 
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talsync pulse to indicate when the end of the video line has 
been reached so that the spot can ‘flyback’ to the beginning 
ofthe next scan line. This pulse also permits the MPU to ac- 
cess video memory duringtheblankingperiod,thereby avoid- 
ing flicker. 

The decoding of the data input to the VDG is usually done 
by a character generator. This may be a pre-programmed, 
on-chip ROM in the MC6847 or an external, perhaps 
programmable, character generator. 

The display modes that the MC6847 may operate in are set 
out in Table 1. this tabulation summarises much of the in- 
formation about the VDG chip. Тһе way in which these fea- 
tures are selected is in-line with most digital devices. The 
pin assignment diagram for the MC6847 is shown on Figure 
2. The chip is an N-channel, silicon gate device with most 
signals being TTL compatible. The device is housed in a 
40-pin DIL package. The amount of memory required by the 
various display modes is a trade-off against element size or 
resolution of the display in pixels. This feature will become 
more apparent later. 

The lines into, or out of, the VDG can be grouped into six 
classes but classes i)to iv)are the most important to this dis- 
cussion. 


i) Address Lines. (DAO — DA12) These permit up to 8K 
of video memory to be directly addressed, although only 
6K is ever required. The absolute location of the video 
memory in the computer system will depend upon the 
address decoding used. The starting address is located 
at the upper left-hand corner of the screen. The activity 
ofthe address lines is regulated by the *MS pin and the 
display mode selected. 


Date Lines. (DDO — DD7)Theseare used to input values 
in RAM memory to be mapped onto the screen. The 
values are decoded within the chip with repsect to shape, 
luminance and chroma (see later). 

Mode control Lines. There are eight important lines into 
the VDG which control the 14 display modes. These are 
detailed in Table 1. Three major types of display may 
be selected: (a) Alphanumerics, (b) Semigraphics and, 
(c) Graphics. 

The implementation of these displays within the VDG 
is quite different in each case. 


ii) 


iii) 


TABLE 1: 
SUMMARY OF DISPLAY MODES FOR MC6847 VDG 
colours bytes memory element———————— Control Lines ——— —— nyp 
available video RAM mapping size “A/G *A/S “ІМТ/ЕХТ INV GMO GM1 GM2 
Four ALPHANUMERIC Display Modes 
i) Internal ROM Alphanumerics 2 512 byte BX12 0 0 0 0 x x x 
ii) Internal ROM Alphanumerics — Inverted 2 512 byte BX12 0 0 0 1 x x x 
iii) External ROM Alphanumerics 2 512 byte BX12 0 0 1 0 x x x 
iv) External ROM Alphanumerics — Inverted 2 512 byte BX12 0 0 1 1 x x x 
Two SEMI-GRAPHIC Display Modes 
v) 32 by 16 Semigraphics 4 (SG4) 8 512 byte BX12 0 1 0 x x x x 
vi) 32 By 16 Semigraphics 6 (SG6) 4 512 byte BX12 0 1 1 x x x x 
Eight GRAPHIC Display Modes ; 
vi) 64 by 64 Colour Graphics One (CG1) 4 1024 2 bit 3x4 1 x x x 0 0 0 
іх) 128 by 64 Resolution Graphics One (RG1) 2. 1024 1 bit 2x3 1 x x x 0 0 1 
ix) 128 бу 64 Colour Graphics Two (СС2) 4 2048 2 bit 2x3 1 x x x 0 1 0 
x) 128 Бу 96 Resolution Graphics Two (RG2) 2 1536 1 bit 2x2 1 x x x 0 1 1 
xi) 128 by 96 Colour Graphics Three (CG3) 4 3072 2 bit 2x2 1 x x x 1 0 0 
хі) 128 by 192 Resolution Graphics Three (RG3) 2 3072 1 bit 5х1 1 x x x 1 0 1 
xiii) 128 by 192 Colour Graphics Six (CG6) 4 6144 2 bit 2x1 1 x x x 1 4 0 
xiv) 256 by 192 Resolution Graphics Six (RG6) 2 6144 1 bit 1х1 1 х х х 1 1 1 
The IEEE standard for electrical state relationships uses the suffix '** 
instead of the overbar 7" to designate when an electrical signal is 
active low. 
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Figure 2. Pin-out for Motorola 
MC6847 Video Display 
Generator chip as used in the 
VZ computers. 


Switching the screen to Alphanumerics or Graphics 
mode is determined by the (* A/G) line. 


Switching the screen between Alphanumerics or Semi- 
graphics mode is set by the (*A/S) line. 


Selection of the internal (on-chip) or external character 
sets held in ROM is set by the (*INT/EXT) line. In Semi- 
graphics mode this line determines whether SG4 or SG6 
mode is selected. 


Normal or inverse Alphanumeric displays are set by the 
(INV) line. Three lines (СМО, GM1, СМ2) are used to 
select one-of-eight Graphics modes to be used. 


An eighth control line (CSS) selects the colour set to be 
used in the particular mode selected. Most modes have 
two colour sets available. 


In Alphanumeric and Semigraphics 4 modes, one-of-two 
background colours is selected and in Semigraphics 6 
and Full Graphics modes one-of-two colour sets is 
selected. 

The operating mode of *A/S, *INT/EXT, CSS and INV 
may be changed on a character by character basis in Al- 
phanumerics and Semigraphics mode. 


DRAM 7000—7FFF 


eWR 6800 


iv) Power Supply. 
Vss: 0 V supply — normally ground. 
Vcc: «5 supply. 
v) Video Lines. 
These are four analogue signals: 
OA В-Ү chroma — а three-level signal used in com- 
bination with OB and Y to speci- 
fy one-of-eight colours. 


OB R-Y chroma — a four-level signal; the fourth is 
used as colour burst timing 
reference. 

Y luminance — asix-level signal containing com- 


posite sync, blanking and fourlev- 
els of luminance. 


CHB chroma bias or a test point — not used in appli- 
cations. 


vi) Device Synchronising Controls. 


*MS memory select, three-state control to allow the 
MPU to address the video RAM. 


CLK 3.579 MHz clock. 


*FS field sync to indicate the end of the active display 
area during which time the MPU may have access 
to the video RAM without causing undesirable 
flicker on the screen. 


*HS horizontal sync to the TV receiver. 


*RP row preset — important when an external charac- 
ter generator ROM is used. 


From this brief description, a grasp of how the VDG oper- 
ates may be gleaned. We will now examine how this partic- 
ular VDG chip is used in a home computer application — the 
VZ computer. 


The MC6847 in the VZ-200/300 
computer 
In the VZ computer a number of display modes using the 
МС6847 are available. Specifically, modes (i), (ii), (v) and (ix) 
on Table 1 are implemented as standard on the VZ. These 
modes are 'soft switched' or software selectable from the 
ROM-resident BASIC and will be described in detail later 
in this article. 

The video display system in the VZ consists of a number 
of components or 'blocks' — but the heart of the display sys- 
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Figure 3. Schematic for Video Display 
in the VZ-200 and VZ-300 Computers. 


tem is the VDG just described. This device interfaces with 
2K of dynamic video RAM which occupies 7000H to 77FFH 
of the memory map forthe Z8OA MPU used in the VZs. Ай- 
ditionally, a hex write-only latch mapped at 6800H (but ex- 
tending to 6FFFH due to simplified address decoding) 
controls, via software, the display modes implemented on 
the VZ. 

The analogue outputs from the BDG are processed by fur- 
ther video circuitry which need not concern us here. All of 
these blocks are synchronised by a 3.58 MHz clock. This is 
an instance where the full speed of the Z80A (4 MHz) is not 
realised due to impositions by the video display. 

More significantly however, the architecture of the VZ has 
only allowed 2K of RAM for the video display. This effec- 
tively prohibits the implementation of some of the hi-res 
graphics modes. (Specifically, modes (xi) to (xiv) in Table 1]. 
The VZ does not contain an external character generator 
ROM and relies entirely upon the VDG on-chip character 
ROM. Clearly, the VZ is manufactured to a price (and a very 
attractive one at that!) and was designed to interface with 
Microsoft's BASIC Level II ROM routines. Despite these com- 
ments, there are opportunities to make a few slight and sim- 
ple changes to the hardware around the VDG to implement 
additional display modes with improved resolution. It is also 
possible to add an external character generator — but more 
of these later. 

Figure 3 is a diagrammatic representation of the way іп 
which the MC6847 VDG is interconnected in the VZ com- 
puters. The address lines DAO-DA10 (11 lines) are connect- 
ed to U7 — a 6116 2K RAM chip — which is mapped as the 
video RAM section of memory. Lines DA11 and DA12 are 
not connected, thereby limiting the addressable video 
memory to 2K. Data lines DDO-DD/7 (eight lines) are connect- 
ed into the data bus from the MPU of which the 2K video 
RAM memory of course forms a part. The way in which the 
eight control lines are connected is of interest as th ese de- 
termine the type of displays available on the VZ. 

Reference to Table 1 will indicate how the control lines 
are configured. The Graphics display group consist of GMO, 
GM1 and СМ2. As can be seen from Figure 3, both СМО and 
GM2 are tied low (to ground) whilst GM1 is tied high, to the 
+5 V Supply. Similarly, “ІМТ/ЕХТ is permanently tied low, 
thereby enabling the on-chip character generator ROM. The 
configuration of СМО-С М2 to 010B means that only Colour 
Graphics Two (CG2) is implemented when Graphics mode 
is selected. 
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Тһе remaining four controllines аге interesting as they аге 
not ‘hard-wired’ but are set up to be ‘soft switched’ — 
although two quite different techniques are used. 

The INV line is connected to bit 6, or DD6, of the data bus. 
Thus, whilst in Alphanumeric mode, the second most sig- 
nificant bit of a byte contained in video RAM controls 
whether a normal or inverse character is displayed. The line 
that selects between Alphanumeric and Semigraphic modes 
— *A/S — is similarly connected to the most significant bit 
or DD7. thus this bit determines whether the VDG should 
interpret a particular byteas an ASCII character or a graph- 
ics shape. 

The remaining two lines are connected into the Output 
Latch mapped into 6800H. As mentioned before, this is a 6-bit 
write-only latch. It permits certain software commands to 
set or reset a particular bit of the latch and hence switch or 
control specific hardware interfaces. Figure 4 is a schemat- 
ic of the portions of the latch which is of interest to us here. 
A copy of the latch is held in RAM at location 783BH. The 
* AIG line, which selects between hi- or lo-res screens, is con- 
nected to bit 3 of the Output Latch. If this bit is low or 0, 
then the screen is іп lo-res mode which corresponds to Al- 
phanumeric and Semigraphic modes. If the bit is high or 1, 
then hi-res or Graphics (CG2) mode is selected. It is quite sim- 
ple to see that the MODE (X) command in BASIC directly 
sets this bit of the latch — where X maybe 1 or 0. Note that 
bit 3 of the latch corresponds to a value of OBH on the latch. 

The Colour Select line (CSS) is connected to bit 4 on the 
latch which maps as a value of OFH. The effect of this line 
differs according to the mode selected. The CSS pin selects 
the background colour of the display and in so doing deter- 
mines the colour set which may be displayed. When CSS is 
low or 0 the background colour is green, but if set high or 
1, then in lo-res the background colour is orange, but if in 
hi-resthen the background is buff. Sounds alittle confusing 
— but actually it isn't, given a little thought and reflection 
on Table 1 and Figure 1. Furthermore, in hi-res mode this 
pin selects which of the two colour sets (each containing four 
colours) will be selected. Colour set 0 consists of green, yel- 
low, blue and red, whilst colour set 1 consists of buff, cyan, 
magenta and orange. Clearly, this pin is set by the COLOR 
F, B command where B determines the background colour 
and F determines foreground colour. 

An understanding of the operation of the mode control 
lines gives a good insight into how the BASIC interpreter in- 
terfaces with the hardware and the real world via the screen 
display. 

For the hardware enthusiasts, and others closely follow- 
ing this article, the penny should have dropped as to how 
other screen modes can be made selectable on the VZ by some 
simple hardware alterations. 


Improved graphics on the VZ computer 


One of the disappointing features of the graphics capability 
of the VZ is that the Semigraphics (SG4) and Graphics (CG2) 
modes һауе rectangular characters and elements which con- 
siderably detract from the appearance of the displays. This 
feature can be remedied. 

Thefollowing simple hardware modifications areoutlined 
for those who feel they are competent tackleit. They involve 
the installation of three switches on the VZ. Figure 3 pro- 
vides an indication of what is required. 

If *INT/EXT can be switched high, then Semigraphic mode 
SG6 becomes available on the computer. This has the advan- 
tage of giving higher screen resolution and, although the 
characters are still rectangular, their elements are square 
rather than rectangular as in the standard implementation 
of SG4 mode. 

In Graphics mode, only CG2 is available in the VZ. By 
switching GM1 and СМ2 it is possible with the 2K of video 
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Figure 4. Schematic of Output Latch mapped at 6800H 
(26624D) in VZ computers. (Other latches are used to 
control plezo-speaker and cassette output) 


Q4— CSS VDG background colour. 
O green (hi- ond lo—res) 
1 orange (lo—res) buff (һі-гез) 


Q3— А/С VOG display mode. 
О Io—res 
1 hi-rea 


memory to implement a further three modes (CG1, RG1 and 
RG2). There is little point in switching GMO as there is in- 
sufficient memory to cover modes (xi) to (xiv). The element 
size in SG6 and CG1 is the same (3x4 pixels) and so there 
is little to choose between them — although their usage of 
memory is different and the characters in SG6 mode can be 
'specified' through the keyboard as is done in 564 mode оп 
the VZ. 

RG1 has the same resolution as the standard MODE (1) dis- 
play but is only two-colour and consequently uses only half 
the memory space. the real benefit of adding the switches 
is in obtaining RG2 mode on the VZ. Although this only two 
colour, the element size is 2x2 pixels and is square. This is 
a great mode for plotting graphs for instance, where the 
screen resolution is 128 elements across by 96 elements down 
the screen. 

To achieve this modification, use three SPDT toggle 
switches. Wire one side of each switch to «5 V, or pin 17 
on the VDG, and wire the other side of each switch to ground 
or pin 1 of the chip. Cut the tracks leading from pins 27, 29 
and 31 (GM2, GM1 and *INT/EXT) and wire the chip side 
to the centre terminal of a switch. This enables the three con- 
trol lines to be switched high or low. (See inset on Figure 3.) 

There you have it! It remains now to develop suitable soft- 
ware to drive these additional modes. The possibilities 
opened by the 'square' modes of SG6 and КС2 are exciting. 
(Who is going to submit some drivers for this conversion?) 

As an afterthought, whilst you have got the VZ on the 
bench, why not add a RESET switch? A normally closed 
push-button switch inserted into the 'reset on power-up' line 
overcomes the annoying business of powering-down the VZ 
for resetting. 4 — continued next month. 


4004. 


Hardware and software 
aspects of screen handling 
on the VZ- -200/300 


Concluding with coverage of the 
software interface in the VZ and the 
MC6847 VDG, looking at the standard 
screen modes. 


IT IS NOW OPPORTUNE to briefly discuss the software 
interface in the VZ and the VDG. I will only discuss the stan- 
dard screen modes used on the VZ — not the additional 
modes mentioned in Part 1. 


Lo-res/Text/Mode (О). 

In the lo-res mode the screen is formatted into 16 lines down 
the usable window with each line containing 32 characters. 
Thereby providing 512 addressable characters on the screen. 
A quick calculation (ог look at Table 1) will show that each 
character is composed of 8 by 12 pixels (ог dots). Further- 
more, each character is ‘described’ in a single byte in the 
video RAM section of memory. The upper left-hand charac- 
ter on the screen is memory mapped onto address 7000H 
(28672D), and the lower right-hand character is mapped onto 
7000H + 1FFH (291830). A memory map for the lo-res screen 
is given in Figure 5. 

A formula is often used to calculate the address of a par- 
ticular character on the screen. Let AA be the position of the 
character ACROSS the line (which ranges from 0 to 31) and 
let AD be the line number DOWN the screen (ranges from 
0 to 15). i.e: working in the SE quadrant of an X-Y axis sys- 
tem. The relationship between (AA,AD) and the address in 
RAM is — 


MAPPED ADDRESS = START ADDRESS + (32 * AD + AA) or 


Addr = 28672 + (32 * AD + AA) 
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Part 2 
Bob Kitch 


This calculation is often used in games to POKE values into 
selected memory locations or when screen formatting via the 
use of the PRINT@ statement where it is performed 'trans- 
parently’. 

When the VZ is ‘soft switched’ to MODE (0) three of the 
modes inthe УОС become available. There areinternal ROM 
Alphanumerics (Normal and Inverse) and Semigraphics 4. 
There is no user-definable external character generator avail- 
able in a standard VZ and also the Semigraphic 6 mode is 
not implemented due to hardware limitations. (Although I 
understand that the LASER 200 had SG6 rather than SG4 im- 
plemented as standard — but see previous section). 

Let's digress for a while to describe how the on-chip cus- 
tomised character generator located in ROM on the VDG 
actually formats the 8 by 12 pixels to form each character. 
Firstly, in text mode. Table 2 shows the actual character set 
with corresponding codes resident in the VDG ROM. Figure 
6 shows a typical character in Alphanumeric Mode (Inter- 
nal). The spacing between characters across the line and be- 
tween lines is set by the format held in the character 
generator. A Non-ASCII type character code is used on the 
VZ such that lower case (and control) ASCII characters are 
not represented. The ‘lower case’ ASCII values are used to 
signal ‘inverse’ characters by setting bit 6 high. 

An Alphanumeric character in ‘normal’ mode is colour 
selectable as either green or orange witha black background. 
In ‘inverse’ mode, the character is black with the background 


TABLE 2. 


Alphanumeric and 
Semligraphic 4 character set 


e ш se DLE, F 


.....ы tor the VZ-200 and VZ-300 
g т = т т = held іп МС6847 on-chip ROM. 
a = = = = = (Users — note errors іп shape 
a a А " А = table held іп VZ НОМ for inverse 
J, X, 3 and 5). 
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(COLOURS) 


TE 7000H (28672) 


128 
160 
192 
224 
256 
288 
320 
352 
384 
416 
448 
480 


71E0 (29152) 


being selectable from green or orange. Remember that the 
Inverse mode of the MC6847 is set by bit 6 of the data value 
contained in video RAM. (see also Figures 1 and 6). 

An understanding of this involves looking at individual bits 
within the bytes and also looking at how these bits can con- 
trol and reset certain control lines on the VDG (as outlined 
in Part 1). 

In text mode there are 64 characters in each of the Nor- 
mal (0-63) and Inverse (64-127) sets. This implies that a 6-bit 
code is used to encode the character shape and that bit 6 de- 
termines whether Normal or Inverse. 

For example:— 


b7 b6 b5 b4 ЫЗ b2 bi bO 
0 0 1 оо 1 0 1 Binary = 370 or '%' normal. 
0 1 1 02770 1 0 1 Binary = 1010 or '%' inverse. 


Note the way that bit 6 determines normal/inverse. Also 
note that bit 7 doesnot change. The most significant bit (MSB) 
is used to indicate text character to the on-chip ROM. 


In summary, for the character source, a 6-bit ASCII code is 
used to call the elemnent from the on-chip ROM, the seventh 
bit indicates normal or inverse illumination, and the eighth 
bit is held low to indicate Alphanumeric mode. 


Ө Pixel от 


(O Per ur 


INVERSE 
Biack chorocter 
Green or orange background (selectable) 


NORMAL 
Black bockground 
Green or orange choracter (selectabie) 


Figure 6. Format of Alphanumeric Mode — internal оп 
MC6847. Each character Is 12 by 8 pixels and each screen 
Is 32 by 16 characters. А 6-bit ASCII code specifies the 
character from an on-chip ROM. 


2 of +. 


701FH (28703) 


Figure 5. Screen addressing 
for MODE (0) or lo-res 

31 displays on VZ computers. 

63 This mode corresponds to 
Alphanumeric and 

95 Semigraphic 4 on VDG and is 

127 32 by 16 characters in size. 
Each character is byte- 

159 ^ mapped as indicated. 


191 
293 
255 
287 
319 
351 

383 
415 
447 
479 
511 


71ҒЕН (29183) =, 


b7 b6 b5 b4 b3 b2 b1 b0 


alpa inv 6-bit ASCII 
“AIS INV 


In graphics mode the Semigraphics 4 mode of the VDG is 
used. The 8 by 12 pixel character is divided into four ‘rec- 
tangular’ quadrants of size 4 by 6. The quadrants are ‘psuedo- 
addressable’ by selecting the correct area as shown on Figure 
7. 


In Semigraphics mode, a morecomprehensive form of en- 
coding is used. The character codes extend from 128 to 255, 
implying that the MSB (or bit 7) is set to 1 (or high) to indi- 
cate that a graphics character is encoded in the byte. The 
graphic block character contains 16 discrete patterns involv- 
ing ‘switching’ on or off the four quadrants. The four 
low-order bits handle a quadrant a piece (refer Figure 7). Ad- 
ditionally one-of-eight illumination colours is encoded in the 
next three bits (bits 6 to 4). 

For example:— 


b7 b6 b5 b4 ЫЗ b2 b1 bO 
о O. 73-507 0 215250514 
Оз ш AO 301 Дуб 02 bal 


Binary = 2170 ог E. cyan 
Binary = 1450 or [g 


yellow 


BLACK 
GREEN 
YELLOW 
BLUE 
REO 


BUFF 


ONE 


ELEMENT СТАМ 


МАСЕМТА 


Je» +} — a —] 


ORANGE 


“1]є2[с1[со[оз][а2[ ви |90) 


BYTE ORGANISATION 


Figure 7. Format of Semigraphic 4 Mode on MC6847. Each 
character Is 12 by 8 pixels but elements or quadrants can 
be Individually Illuminated giving a screen resolution of 64 
by 32 elements In up to eight colours. 
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. . Colour Graphics 2 оп the VDG 


Figure 8. Screen Addressing 
for MODE (1) or hi-res 
displays on the VZ computers. 
This mode corresponds to 


0,0 > j 


and is 128 by 64 elements in 
size. Each element is mapped 


with two bits. 0,15 » 


0,31 » 


0,47 » 


0,63 > 


In summary, for Semigraphics mode it can be seen that 
each of the four least significant bits controls one of the quad- 
rants, whilst the next three bits determine the colour of the 
illumination. The most significant bit is set high to indicate 
a graphics block is encoded. 


b7 b6 b5 b4 b3 b2 bi bo 
colour G3 G2 G1 GO 


graphic 
“А/5 


Іп this mode, although the screen is formatted into 32 Бу 
16 graphics blocks, in fact the quadrant resolution is actual- 
ly 64 by 32 and with all of the eight colours available. This 
ш be thought of аз ап intermediate resolution display 
mode. 

Thus it can be seen that Alphanumerics in either Normal 
or Inverse style and Semigraphics blocks of up to eight 
colours can be individually set on the lo-res screen by byte 
mapping. Different forms of encoding the necessary infor- 
mationare used in each case. These features combine to make 
MODE(0) quite a powerful display despite its lack of reso- 
lution. 


Hi-res/Graphics /Мо4е(1) 

In hi-res ог MODE(1), the screen has 128 by 64 elements 
individually addressable. This corresponds to 8192 elements 
and with only 2K of video RAM available, then some sort 
of trade-off in features over lo-res must ensue. In hi-res, each 
element is 2 by 3 pixels in size and is (noticeably) rectangu- 
lar in shape. Video RAM addressing extends from 7000H 
СЕ) to 71FFH (30719D) — 2048 bytes ав shown in Figure 


ты mode corresponds to Colour Graphics Two (CG2)on 
the VDG chip. Each byte addresses four consecutive elements 
across the screen. Each element may be one-of-four colours 
(selected from either of the two colour sets). Note the trade- 
off in colours and the different way in which elements are 
addressed on the screen — such that MODE(0) and MODE(1) 
screens cannot be mixed. 

There are a couple of ways in whicheach element may be 
illuminated. 

The simplest (and slowest) way is by using the BASIC com- 
mands of SET and RESET. These commands alter two bits 
of the appropriate byte in the video RAM area. The process- 
ing is very slow because of this limitation and the fact that 
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7000H (28672 
с 


`C 77E0H (30688) 


63,0 701FH (28703) el 


< 127,0 


< 127,15 


< 127,31 


< 127,47 


4 127,63 


65,65 77ЕЕН (30719) c 


it is done through the BASIC interpreter. Listing 1 provides 
a simple illustration of this method. The program fills the 
entire screen with hi-res elements according to the COLOR 
command. The use of integer index variables speeds up the 
program a little. 


*S538NAIL GRAPHICS DEMOSSs 
"sss HI-RES $88 
"211 VERSION 1.2 sas 
‘ate В.В.К. 22/5/86 аза 
*888 EXECUTION TIME 43.7 SECS. 

100 'SET TO HI-RES 

120 МОРЕ (1) 

150 COLOR 5,0 

140 SOUND 10,1 

200 FOR V%=0 TO 63 

210 FOR H%=0 TO 127 

220 SET(H%,V%) 

230 NEXT H% 

240 NEXT VX 

250 SOUND 10,1 

260 STOP 

270 END 


LISTING 1 


*8$858NAIL GRAPHICS DEMO888 
"28: HI-RES sss 
ss VERSION 2.3 ses 
"sss В.В.К. 22/5/86 888 
"заз EXECUTION TIME 8.5 SECS. 

100 "БЕТ TO HI-RES 

120 MODE (1) 

130 COLOR ,0 

140 VX*2170:80UND 10,1 

200 FOR 1%=#28672 TO 30719 

210 POKE IX,VX 

220 NEXT IX 

250 SOUND 10,1 

260 STOP 

270 END 


LISTING 2 


10 ° 888NEAR-LIGHT-SPEED GRAPHICS DEMO888 
20 7884 HI-RES #88 
30 %84% VERSION 1.2 sas 
42 "sss R.B.K. 22/5/86 sss 


LISTING 3 


50 "948 EXECUTION TIME 0.5 SECS. 
100 "ваз ОАО BLOCK MOVE MACHINE CODE. 388 
110 FOR IX=-28687 TO -28674 
120 READ АХ: POKE IX,AX 
130 NEXT 
140 DATA 33,0,112,17,1,112,1,255,7,54,170,237,176,201 
200 °SSRINITIALIZE UBRO TO ADDRESS ӨРЕ1Н OR -286870. 182 
210 POKE 50662,241: POKE 30863,143 
ЗОО 'S$$8£T TO HI-RES. 888 
310 MODE (1) 
320 COLOR ,0 
330 SOUND 10,1 
340 XeUtR(O) 
350 GOUND 10,1: SOUND 0,9 
360 COLOR ,1 
370 8OUND 10,1: SOUND 0,9 
380 ВТОР 
390 END 


3 of + 


РЕТТТТТТІТТТТІТТІТТІТТТІТІІ 
20 'ї%зї 2000 V2 SCREENS 4:4 
50 “ала VERSION 1.2 ase 
40 "513 R.B.K. 10/5/06 #88 
SO 1188888818888 8888888888888 
60 ' 
100 *88F IND ТОР OF MEMORY. 
110 M1=PEEK (30898) 111 =РЕЕК (30897) 1* 8$ $PRESERVE TOM POINTERS. 
120 TM«M12255*L1-20 1*&58%ВЕ5$ЕНМЕ ТОР 20 BYTES. 
130 MS=INT(TM/254) :LS=TM-MS8256 
140 POKE 30898,MS:POKE 30897,LS 
150” 
200 *%®%#5$ЕТ UP LOADING OF USR() ROUTINE. 
210 TMeTHe1 1'E33NEXT ADOR IN RESERVED МЕМ. 
MS=INT(TM/256) 1LS9TH-MS 1255 
POKE 30863,MS:POKE 30862,LS 
AD=TM+10 1° 822ADDR. FOR CHARACTER BYTE. 
IF TM>32767 THEN TM=TM-65536 1°888CONVERT TO SIGNED INTEGER. 
IF А0>52757 THEN AD=AD-65536 


LISTING 4 


’зза- ОАО MACHINE CODE. 
FOR ID=TM TO ТМ»15 

READ VL1POKE ID,VL 
NEXT 
"2212-80 BLOCK MOVE SUBROUTINE. 
DATA 33,0,112 1'LD HL,7000H (9286720 START VIDEO RAM) 
DATA 17,1,112 1'LD DE,7001H  (428673D NEXT OR DEST.) 
DATA 1,255,7 1'LD ВС,О?ҒЕН (#2047D SIZE OF VIDEO RAM) 
DATA 54,85 :'LD (HL),SSH (#85D YELLOW OR CHAR. 040 
DATA 237,176 1 'LDIR (BLOCK MOVE INSTRUCTION) 
DATA 201 1'RET 


'5331INITIALIZE DELAYS - CONTROL SPEED OF EXECUTION BY D. 
T=0 1'383TONE О IS REST. RANGE IS O TO 31 
D=4 1*$$$DURATION 9 IS LONG. RANGE IS 1 7109 
P230744 1° 888ADDR. FOR INVERSE CONTROL. 

POKE P,O 1:°888SET UP SCREEN. 

, 


*eesSET UP DEMO LOOP. 
FOR 10=0 TO 255 
POKE AD,ID 
” 88 8SCREEN MESSAGE. 
MODE (O) 1'83:SET sA/G LO. 
POKE P,0 1' £33SET INV LO. 
PRINT8234," CHAR = ";IDISOUND T,D 
"S$1LO-RES SCREENS. 
'S$1LO-RES GREEN CHARACTER ON BLACK BACKGROUND. 
X=USR (0) 1: COLOR, O1SOUND T,D:’88sSET CSS LO. 
'£$$LO-RES ORANGE CHARACTER ON BLACK BACKGROUND. 
COLOR, 11 SOUND T,D 1'$33SET CSS HI. 
POKE P,1 :'3335ET INV HI. 
*88LO-RES BLACK CHARACTER ON GREEN BACKGROUND. 
XmUSR (0) 1 COLOR, Or SOUND Т,О:’8885ЕТ CSS LO. 
'£$3LO-RES BLACK CHARACTER ON ORANGE BACKGROUND. 
COLOR, 1:SOUND T,D :'8885ЕТ CSS НІ. 
"азанІ-КЕЅ SCREENS. 
MODE (1) :°8885ЕТ 8A/G HI. 
POKE P,O 1°888SET INV LO. 
*88SHI-RES COLOR SET О - GREEN SURROUND. 
X=USR (0) 1COLOR, О: SOUND T,Di'"sssSET CSS LO. 
*g88HI-RES COLOR SET 1 - BUFF SURROUND. 
COLOR, 1: SOUND T,D 1”ЕФ4<ЕТ CSS НІ. 
РОКЕ Р,1 1' 833SET. INV HI. 
"48ЕНІ-КЕ5 COLOR SET O. 
X9USR(O):COLOR,O:SOUND T,D:’888SET CSS LO. 
'8312HI-RES COLOR SET 1. 
COLOR, 1:SOUND T,D 
'SESRESET CONTROLS. 
POKE P,O1COLOR,OtCLS 
910 NEXT 
920 ' 
930 *%%%НЕ5$ЕТ ТОМ POINTERS. 
940 POKE 30098, М1:РОКЕ 30897,L1 
950 5ТОР:ЕМО 


1'£$3SET CHARACTER BYTE. 


1'$33SET CSS HI. 


А quicker way is to POKE values into each byte, thereby 
setting four elements at a time. Listing 2 demonstrates this 
technique. This program also fills theentire hi-res screen with 
elements whose colours are determined by the variables V%. 

The quickest way is to use a machine language program 
to load appropriate values into the video RAM. This tech- 
nique is a very rapid way to fill the screen. Listing 3 is an 
example of this method. This program POKEs machine code 
into hi-memory. The subroutine uses the very efficient Z80 
Block Move command to fill the screen according to the value 
stored at address -28677D. It is fast! 

Both of the last two methods require that an understand- 
ing of the value to enter into RAM is known. This requires 
a knowledge of how each byte is organised in CG2 mode. 

As mentioned previously, each byte controls four elements 
which can be selected from four colours. Bits are treated in 
pairs (dibits!) with each pair corresponding to an element. 
Each dibit can have a value of 00B to 11B to indicate colour. 
This is set out on Table 3. А 

Four example, suppose we want an entirely BLUE screen. 
Then POKE (128 +32 +8 + 2) or 1700 into the appropriate area 


| 


TABLE 3: 
CONFIGURATION OF BYTES IN MODE (1). 


3 2 1 0 Element # 


Bin. = four GREEN/BUFF elements. 
Dec. = 0D 


01 01 01 21021 Bin. = four YELLOW^CYAN elements. 
64 16 4 1 Dec. = 850 


10 | 10 10 10 Bin. = four BLUE/MAGENTA elements. 


Dec. = 1700 


11 Bin. = four RED/ORANGE elements. 
192 Dec. = 2550 


The decimal numbers corresponding to each element position AND colour 
provide the value that needs to be POKE'd or loaded. 


of the screen. If, however, a striped screen consisting of RED- 
GREEN-BLUE-YELLOW vertical bands is required, then 
POKE (192 +0+8+1) ог 201D. 

Although only four colours are available, there are two 
colour sets available. These are called by the COLOR 
command. 

COLOR, 0 sets the background colour to green and the 
‘strong’ colours of yellow, blue and red are available. 

COLOR, 1 sets the background to buff and the 'pastelle' 
colours of cyan, magenta and orange are available. 

To think back to the RESET command mentioned before, 
it should be apparent that this command simply resets each 
dibit or element back to 00В, or the background colour. 


Finale 

Well there we have it! For those who have perservered thus 
far I have included Listing 4 which is entitled '2000 VZ 
Screens'. It is about as exciting as watching a Late Night 
Movie — and takes about as long to run! Actually it illustrates 
all of the features discussed in thisarticle. For those who wish 
to sit-it-out — watch those control lines operate! 


AEM 0.1 sec р. lar. 
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REFERENCE LISTING ОЕ У2-200/300 MAGAZINE 
ARTICLES 
Since its introduction in early 1983, over one hundred articles on 
the VZ-200 and 300 have appeared in magazines. some articles review 
the hardware and others describe peripherals, some excellent games 
have been published and a very useful set of utility routines has 


emerged. 
This bibliography for the VZ computer is a must for the serious 
VZ User. < 
UTILITIES 
Oct. 83 АРС 52,4 BASIC program conversion. (Surya) (2) 
Nov. 83 APC 57,9 Program conversion Pt. 2 (Surya) (2) 
Nov. 83 АРС. 89.95 BASIC converter chart. (Surya) (7) 
Feb. 84 APC 140-1 Program conversion Pt. 2 (Surya) (2) 
Mar. 84 APC 42-3 Program conversion — Apple II (Surya) (2) 
Apr. 84 APC 71-2 Program conversion — TRS 80/System 
80 (Surya) (1) 
Мау 84 АРС 75-6 Program conversion — Atari (Surya) (2) 
Jun. 84 APC 67 Program conversion — Sinclair (Surya) (1) 
Jul. 84 APC 129-30 Program conversion — BBC (Surya) (2) 
Mar. 84 ETI 63 More functions for the VZ-200. (Olney) (1) 
Apr. 85 ETI 117 Notes and errata for Olney. (-) 
Jul. 84 М80 3-4 VZED — three new functions. (1) 
Aug. “84 M80 2 VZ-200 output latch. (1) 
Aug. 84 M80 9, 15, 16 Memory peek VZED. (Carson) (1) 
Aug. 84 M80 3-4 Microsoft ROM BASIC Level I bug. (1) 
Apr. 85 APC 97 VZ-200 bug. (Tritscher) (-) 
Aug. 85 APC 31 VZ bug. (Tritscher) (-) 
Aug. 84 APC 94 VZ-200 moving message and trace. 
(Batterson) (1) 
Nov. 84 APC 125 Trace function. (Breffit) (-) 
Nov. 84 APC 125 VZ-200 correction. (Kelly) (-) 
Oct. 84 ЕТІ 135-7 Extending У2-200 BASIC. (Оіпеу) (3) 
Моу. 84 АРС 125-6 TRON/TROFF function for VZ-200. 
(Thompson) (1) 
Nov. 84 APC 208-12  MON-200 machine code monitor. 
(Stamboulidas) (5) 
Nov. 84 PCG 55-56 Lprinter. (Quinn) (2) 
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AEM Australian Electronics ETI Electronics Today 
Monthly International 
APC Australian Personal M80 Місго-80 
Computer MC Micro Choice (UK) 
BYC Bumper Book of Programs by PCG Personal Computer Games 
YC PCN Personal Computer News 
CC Creative Computing (US) (UK) 
CFG Computer Fun and Games PE Practical Electronics (UK) 
CT Computing Today (UK) WM Which Micro (UK) 
CHC Choice YC Your Computer 
EA Electronics Australia 


The numbers in brackets are the number of sheets in each article. 
A dash (-) indicates that the article is on the same sheet as the item 
above. 

If Users wish to obtain copies of the articles referred to in this 
bibliography they may — 

i) contact me for copies...or... 

ii) buy back copies of the magazine from the distributor...or... 
iii) borrow from your local library. 


Compiled by — 
Bob Kitch, 7 Eurella St., KENMORE, QLD 4068. Ph. (07)378 3745 


PLEASE ADVISE OF АМҮ ADDITIONAL ARTICLES... or... 
CHANGES, ALTERATIONS OR BUGS IN LISTINGS to assist other 
users. 


October 1986 — Australlari Electronics Monthly — 121 


1 of 2. 


Моу 84 РСС 
Feb. 85 APC 
Feb. 85 APC 
Apr. 85 PCG 
Apr. 85 APC 
Apr. 85 APC 
Apr. 85 APC 
Jul. 85 APC 
May 85 APC 
May 85 ETI 
May 85 APC 
Aug. 85 APC 
Aug. 85 APC 
Sep. 85 APC 
Oct. 85 APC 
Oct. 85 APC 
Nov. 85 APC 
Nov. 85 ETI 
Jan. 86 APC 
Feb. 86 АРС 
Маг 86 АРС 
Маг 86 YC 
Jun 86 APC 
GAMES 

Dec. 83 АРС 
Jan. 84 YG 
Apr. 84 АРС 
Іші. 84 АРС 
Іші. 84 M80 
Jul. 84 M80 
Aug. 84 M80 
Aug. 84 M80 
Oct. 84 PCG 
Nov 84 PCG 
Jan 85 PCG 
— 85 ВУС 
Маг 86 СЕС 
- 85 ВҮС 
Jan. 85 APC 
Jan. 85 YC 
Jan. 85 PCG 
Mar. 85 YC 
Apr. 85 YC 
Apr. 85 РСС 
Мау 85 ҮС 
May/Jun 85 PCG 
Jun. 85 YC 
Jan. 86 YC 
Jul. 85 YC 
Aug. 85 YC 
Oct. 85 PCG 
Oct. 85 ҮС 
Маг. 86 АРС 
Мау 86 ЕТІ 
BUSINESS 

Aug. 84 APC 
Oct. 84 APC 
Oct. 85 APC 
Oct. 84 APC 
Dec. 84 APC 
May 85 APC 
Jul. 85 APC 
PERIPHERALS 
Feb. 84 EA 
Aug. 84 EA 
Aug. 84 PCG 
Oct. 84 АРС 
Пес. 84 АРС 
Oct. 85 YC 
Nov. 84 ETI 
Dec. 84 ETI 
Aug. 85 ETI 
Jun. 86 EA 
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VZ-200 reverse video. (1) 
BASIC understanding (Hobson) (1) 
VZ-200 into puberty — Olney's 

extended BASIC. (1) 
Find. (Stamboulidas) (3) 
Use oí RND in dice and card games. 

(Holland) (1) 
VZ variable definition. (Stamboulidas) (1) 
Variable GO TO on VZ. (Olsen) (1) 
Correction to VZ variable GO TO (-) 
Lusco support for VZ-200. (Young) (1) 
VZ-200 hardware interrupt. (Olney) (3) 
Background VZ. (Williams) (1) 
VZ-200 instant colour. (Willows) (-) 
Reversed REM. (Quinn) (1) 
Real-time clock. (Griffin) (1) 
APC benchmark BASIC programs. (1) 
VZ deletions. (Quinn) (1) 


VZ EDITOR/ASSEMBLER tips. (Lam) (1) 
Olney's Level 11 BASIC for VZ-300/300. 


(Rowe) (2) 
VZ user graphics. (1) 
Machine language calls. (1) 
APC BASIC converter chart 1986. (8) 
VZ-200 cassette inlays. (Dutfield) (3) 
VZ pause. (1) 
Missile Command. (Whitwell) (2) 
Graphic Sine Waves for VZ-200. 

(Nickasen) (1) 
Moon Lander. (Alley) (2) 
Blockout. (Pritchard) (3) 
Battleships. (Carson) (1) 
Junior Maths. (Carson) (2) 
Contest Log VZED. (Carson) (1) 
Dog Race VZED. (Carson) (1) 
High Resolution Graphics Plotting. 

(Thomson) (3) 
Tips for ‘Ladder Challenge’, ‘Panik’ 

and ‘Asteroids’. (1) 
POKEs to ‘Ghost Hunter’. (-) 
Gold Simulation. (McCleary) (2) 
Gold Simulation. (McCleary) (-) 
Knight's Cross. (Lucas) (1) 
Sketcher. (Leon) (3) 
Punch. (Rowe) (2) 
Space Station Defender. (Shultz) (5) 
Decoy. (Rowe) (2) 
Painter. (Daniel) (1) 
Roadrace. (Thompson) (3) 
Number Sequence. (Thompson) (1) 
Sketchpad. (Thompson) (5) 
Morse Tutor program. (Heath) (1) 
Morse Tutor — again. (Heath) (2) 
Electric Tunnel. (Daniel) (1) 
Number Slide. (Daniel) (1) 
Cube. (McMullan) (6) 
Yahtzee. (Thompson) (3) 
VZ Frog. (Alley) (1) 
Balloon Safari, The Drop and Flatten. 

(Sheppard) (1) 
Database VZ-200. (Barker) (6) 
WP for VZ-200. (McQuillan) (-) 
Comment on Barker's and Quinn's DB. 

(Lukes) (-) 
Minicalc Spreadsheet. (Stamboulidas) (5) 
Correction to Minicalc. (1) 
Micro Type (WP). (Browell) (2) 
Database. (Quinn) (2) 
Real-world interface. (1) 
Improved graphics on VZ-200. 

(Dimond) ç (1) 
ПО card for VZ-200. (ad) (1) 
Serial help request. (Pope) (1) 
Add-ons for VZ-200. (Bleckendorf) (-) 
VZ-200/300 Modem. (ad) (-) 
A ‘Glass-Teletype’ using the 

VZ-200 Pt I . (7) 
А ‘Glass-Teletype’ using the 

VZ-200 Pt II (5) 
VZ-200 terminal. (7) 


VZ serial terminal. (ad DSE kit K6317) (-) 
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Feb. 86 ETI 724 Modifying VZ-200 16K memory 
expansion. (Olney) (3) 

Mar. 86 ETI 48 Talking У2-200. (Bennets) (1) 

Sep. 86 AEM 89-92 VZ-200/300 Screen-handling. (Kitch) (4) 


COMMERCIAL SOFTWARE REVIEWS 


Mar. 84 APC 190-1 Review of DSE ‘Matchbox’, 'Biorythms', 

‘Circuit’, and ‘Poker’. (Davies) (2) 
Aug. 84 pcg 46-47 Review of DSE ‘Panik’ and ‘Ladder 

Challenge’. (1) 

Oct. 84 PCG 90-91 Review of DSE ‘knights and Dragons’, 

‘Ghost Hunter’, ‘Othello’, and 

‘Invaders’. (2) 
Nov. 84 PCG 90-96 Review of LYSCO ‘Cub Scout" and DSE 

‘Dracula’s Castle’. (1) 
Jan. 85 PCG 65 Review of DSE ‘Air Traffic Controller’ 

and ‘Tennis’. (1) 
Feb. 85 PCG 76 Review of DSE ‘Defence Penetrator’ 

and ‘Star Blaster’. (1) 
Mar. 85 PCG 76-77 Review of DSE ‘Planet Patrol’ and 

‘Learjet’. (1) 
Apr. 85 PCG 94-99 Review of DSE ‘Asteroids’, ‘Super 

Snake’ and ‘Lunar Lander’. (1) 
Apr. 85 ЕТІ 103 Logbook and Morse оп У2-200. (1) 
Oct. 85 PCG 689 Review of DSE ‘Duel’. (1) 
Nov. 85 PCG 70-1 Review of DSE ‘Attack of the Killer 

Tomatoes’. (1) 
HARDWARE REVIEWS 
Apr. 83 АРС 58-66 VZ-200. (Hartnell) (5) 
Apr. 83 СС 38-43 Review of VZ-200 (3) 
May 83 CC 26-30 Video Technology VZ-200 PC. (АҺ1) (3) 
Jun. 83 EA 137 New low-cost computer — VZ-200. (1) 
Jun. 83 ETI 30 Dick Smith colour computer. (1) 
Jun. 83 YC 6 DSE VZ-200. (-) 
Aug. 84 PCG 12 VZ-200. (-) 
Jul. 83 ETI 32-7 DSE's personal colour computer. 

(Harrison) (3) 
Jul. 83 EA 130-3 The VZ-200: colour. graphics and sound. 

(Vernon) (4) 
Jul. 83 PCN 16 Timing the Laser's phazer. (Stokes) (1) 
Sep. 83 ММ 40 Laser. (-) 
Aug. 83 YC 20-33 Cash and Carry Computers. (Bell) (9) 
Sep. 83 CC 202-4 Review of VZ-200 and PP40 (1) 
Oct. 83 АРС 77-8 VZ-200. (1) 
Oct. 83 WM 135 Texet TX8000. (1) 
Oct. 83 CT 12 The Laser 200. (-) 
Dec. 83 CT Tl Laser 200. (-) 
Nov. 83 CT 37-40 A look at the Laser. (Green) (4) 
Nov. 83 WM 42-108 The Laser — a shot in the dark. (3) 
Feb. 84 CC 218-21 Laser PP40 Printer/Plotter. (2) 
Spring 84 МС 52-4 Laser 200. (Green) (3) 
Jun. 84 EA 12-9 Buying your first computer. (Vernon) (6) 
Aug. 84 EA 30-3 An important role for small computers. 

(Williams) (4) 
Oct. 84 PCG 82-87 Home micro supertest. Pt. 3 

(Bollington) (5) 
Nov. 84 PCG 14-19 Home micro supertest. Pt. 4 

(Bollington) (4) 
Nov. 84 EA 78-80 VZ-200 as a WP (DSE E&F tape WP). 

(Williams) (2) 
Dec. 84 CHC 28-31 Review of video games consoles. (4) 
Jul. 85 ЕТІ 102-6 Dick Smith’s new VZ-300. (Rowe) (5) 
Aug. 85 EA 22-7 WP on the new У2-300. (Williams) (5) 
Declan 86 PCG 11-15 How to buy a micro — VZ-300 

compared. (4) 
GENERAL PROGRAMMING 
Jan. 83 PE 3/1-3/5 РЕ Micro-file 43 — 280. (Coles (5) 
Mar. 84 APC 73-85 Teach yourself assembler Pt. 1 (Overaa) (6) 
Apr. 84 АРС 57-64 (8080, 280. 6502) Pt. 2 (Оуегаа) (5) 
Мау 84 АРС 89-98 (8080, 280, 6502) Pt. 3 (Оуегаа) (5) 
Jun. ' 84 АРС 53-60 (8080, 280, 6502) Pt. 4 (Оуегаа) (5) 
Jul. 84 APC 61-84 (8080, Z80, 6502) Pt. 5 (Overaa) (3) 
Aug. 84 APC 110-116 (8080, Z80, 6502) Pt. 6 (Overaa) (5) 
Sep. 84 АРС 145-151 (8080, 280, 6502) Pt. 7 (Оуегаа) (4) 
Jan. 85 АРС 122-124 Sort at input. (Ithell) (1) 
Feb. 85 APC 103-109 The basic art — algorithms, structures 

(Liardet) (4) 
Mar. 85 АРС 98-109 Pick a number — arithmetic. (Liardet) (5) 
Apr. 85 APC 79-87 It takes all sorts — sorting. (Liardet) (5) 
Oct. 85 APC 82 The Art of Programming — Progress. 

(Hjaltson) (-) 
Jun. 85 АРС 170-171 Comment on binary search. (Lapnich) (1) 
Jun. 85 APC 171-173 Comment on disbribution sort, 

(Riordon) (1) 
Oct. 85 ҮС 107-8 Sorting out the sorts. (Jankowski) (1) 
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Home brew label 
maker 


A program for programmers who 
like beer. By altering the strings in 
lines 190-240, the program can 
be customised for any user (and, 
indeed, for other labels besides 
home brew). Once you have set 
up your label, you need to 
remember to change the string 
BOS in line 240 to correspond 
with your date of bottling. Make 
sure that all of the strings have 
the same length to ensure а neat 
label. 


The program should be easy tc 
translate for other computers and 
printers. Line 180 activates double 
width print on my Olympia 
printer; line 380 deactivates it. 


Adrian Gallagher 
Bendigo, Vic 


VZ200 


100 Ф HOME BREW LABEL МАХЕР 
110 * FOR V2 -200/300 

120 е PRINTER: OLYMPIA NP 

130 Ф (EPSON COMPATIBLE) 

140 е BY A. GALLAGHER 

150 % 14/5/86 

-160* Ф ALTER STRINGS TO SUIT 
170 *9090909090909090909090909090909922200 

180 LPRINT CHR9(27)1"1"1CHR9$ (32) 117 
T DOUBLE WIDTH PRINT 
190 Т%«"еееееееееееееее 


SELEC 


Фееееееееееезее 
200 S$»"e - E 


210 A$»"« ADE `5 


220 M$-"e MEAN & . MEAN 


230 B$e" B I TT ER e Ф ВГТТЕВе 


240 BOS="e B.17-5-856 e е. 8.17-5-86 
.. 

250 CLS: INPUT “HOW MANY DOUBLE LABELS”;N 
260 FOR 1=1 ТОМ 

270 LPRINT TS 

280 LPRINT S8:LPRINT 89 

290 LPRINT AS 

300 LPRINT МФ 

310 LPRINT BS 

320 LPRINT SS:LPRINT 56 

330 LPRINT BOS 

340 LPRINT 5% 

350 LPRINT Te 

360 LPRINTILPRINTIUPRINT 

370 NEXT I 

380 LPRINT CHR$(27)171"1CHR$(0)41 DESELEC 
T DOUBLE WIDTH PRINT 

390 END 
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Many hams һауе purchased the У2- 
200 computer marketed by Dick Smith 
Electronics and the more recent VZ- 
300 model. Some have also taken ad- 
vantage of the various projects and kits 
that allow the computer to be utilised 
for RTTY and CW. 

Being the son of an amateur, | 
couldn't help but wonder, “why leave it 
there?''. | also couldn't help but notice 
the time and trouble involved in keep- 
ing a log. Every time a contact is made 
and the callsign rang a bell, valuable 
time was lost flipping through log 
pages to track down who, where and 
when. 

Problems were also observed during 
contests when, with each contact you 
make, you have to either mentally or 
physically flip through the log to see if 
the station has been worked before 
and, in the case of some contests, to 
see if the required time between dupli- 
cate contacts has elapsed. 

So, if you have a computer handy in 
the shack, why not also use it to relieve 
the everyday drudgery of log keeping? 

The program listed here is short (as 
log programs go) and written in BASIC 
so even the most cautious user can 
type it in without much trouble. It re- 


By Alex Johnson Jr. 


quires 24K of memory, an 80-column 
printer and a cassette recorder. The 
program is written specifically for the 
Dick Smith GP-100 dot matrix printer, 
but should work with most printers 
without any worries. 

The program includes many ‘‘se- 
crets, tricks and short-cuts'' that | have 
discovered after working with the VZ 
for some time. These are used through- 
out the program to save memory, so 
please type the program in exactly as 
indicated in the listing (although you 
can leave out the spaces outside PRIN- 
T/INPUT statements) as the memory is 
balanced and juggled between string 
and memory needs. 

To save you some counting, long 
stretches of spaces inside PRINT state- 
ments have been printed as (x spaces). 
When you encounter this, just type the 
number of spaces indicated by ‘x’. 
When you encounter the term (rev), 
this indicates reversed text as used in 
program listing on the VZ-200/300. 
The printer used to list the program 
does not reproduce reversed text very 
well. 

| have personally checked the final 
printout and provided the editor with 
corrections and modifications needed 


to ensure that the program works ef- 
fectively (and your editor has taken 
great care to correct the detected er- 
rors for a bug-free printout — ED). 


TRICKS & SECRETS 


Some of the memory-saving tricks 
used in the program include: 
1. Beep each ume a key is pressed. 


POKE 30862,90: POKE 30863,52 
X-USRIO) 

2. Small quick beep that can't be 
switched off (see ‘beep off’)... 

POKE 28761,1: POKE 28671,32 

The VZ technical manual discusses 
the Peizo on page 7. Any address from 
26624 to 28671 decimal (6800 to 
6FFF hex) will result in a beep when 
POKEd with these values. 

Beep on: POKE 30779,0 
Beep off: POKE 30779,1 
3. Memory ей... 
POKE 30862,212: POKE 30863,39 
String memory . . 
PRINT USR(X$) 
RAM memory... 
PRINT USR(X) 

4. Sound abbreviations: the use of 
a semi-colon between notes and du;a- 
tions... 

SOUND 16,2;21,7;15,3;22,8 
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5. THEN, GOSUB апа GOTO on IF . 
. THEN .. ELSE statements: THEN сап 
be replaced by a сотта; GOTO can be 
left out; just the line number needs to 
be typed in after the comma. If a GO- 
SUB is needed, then the comma can be 
left off . . 
IF A::B,100; IF A=B, PRINT "HI" 
IF A=B GOSUB 100 
6. REM can be replaced with an in- 
verted comma and NEXT may be used 
with no variable . . 
100 ' THIS IS FUN 
200 FOR A=1 to X: NEXT 
There are many more "tricks" that | 
did not use in the program. If you have 
others or want to know the rest, write 
to me at 19 Banksia St, O'Connor, 
ACT, 2601. 


PROGRAM DESCRIPTION 


The program is broken into subrou- 
unes and components that can easily 
be used to help iron out any bugs. The 
following is a brief summary of the sub- 
routines and components. 

Lines 10-90: In Line 10 the screen 
background color is set and addresses 
30862 and 30863 decimal (788E and 
788F hex) are POKEd with the address- 
es of the beep routine in ROM, 13392 
decimal (3450 hex) Starting entry 
number is entered and variables are 01- 
Mensioned and set. T % in Line 40 con- 
trols how many entries can be kept in 
RAM at the one time. If you have more 
than 28K of RAM you can increase this. 
See Lines 1020 to 1080. 

Lines 90-176: The screen is set 
up. Note the number of periods or dots 
in these lines, as they are crucial in the 
log PRINTing process. 

Line 180: Commands are entered. 
This is what is referred to as the com- 
mand line or command entry point. 

Lines 190-310: The input at the 
command line is checked for а valid 
input. If the input is valid, the program 
goes to the appropriate subroutine; 
otherwise it returns to Line 170. 

Lines 320-340: The cursor is 
moved to the correct position to fill in 
the entries. Before the command line, a 
click is produced by toggling the Peizo 
high then low. This is done by POKEing 
decimal 2867 1 (6FFF hex), the byte be- 
fore the start of screen RAM. See pre- 
vious text. 

Lines 350-360: The entries are 
checked for length and cut down to the 


correct size. This is necessary as the 
PRINTing 15 dictated by entry length, as 
can be seen from Lines 430 and 860- 
870. This method is used to save 
memory. 

Lines 368-420: Previous entries 
are scanned through from the latest to 
the first — i.e. backwards. If a previous 
contact has been made, the most re- 
cent contact is displayed. 

Lines 430-435: If the continuous 
PRINTing mode is on, this subroutine 
is used to make the hard copy. The 
importance of length of entries can be 
seen here as entries are simply PRINT- 
ed one after the other without TABs. 

Lines 440-500: This is the 'FIND' 
subroutine where callsigns are com- 
pared with the one specified in Line 
140. If a match is found, you can con- 
ипие the log or execute a further 
search. 

Lines 510-540: This is the 'DE- 
LETE' subroutine where callsigns are 
compared with the one specified in Line 
140. If a match is found, you can con- 
tinue the log or execute a further 
search. 

Lines 550-630: The 'SORT' rou- 
tine allows the user to sort in two 
fields, by entry or callsign. If callsign is 
selected, all callsigns in string RAM are 
compared and sorted into alphabetical 
order in Lines 570-630. If entry number 
is selected, the data in string RAM is 
sorted into numerical order of entry 
number. Both formats are completed 
on three common nested loops. The 
decision as to which field is to be sort- 
ed is made in Lines 590 and 600. 

Line 640: 'FILES FULL' subroutine. 
This is used when the maximum al- 
lowable string RAM is reached. It is 
marked by an indicator in the top left 
corner of the screen and a series of 
beeps. The beeps in Line 640 are pro- 
duced from the one SOUND statement 
with semi-colons separating each note- 
/ duration pair. The files are considered 
full when the entry number is greater 
than T96 — see Line 160. It is then 
necessary to SAVE the entries. 

Lines 650-660: Continuous 
PRINTing mode is toggled on and off. 
When 2% = 1, it is on. When 2% = 0, 
it's off. See Lines 175 апа 420-435. 

Lines 670-720: Entries are dis- 
played on the screen. While the entries 
are being displayed, pressing 'P' or the 
space bar will ‘PAUSE’ the screen, 


2 ws. 


while 'S' will stop the list and return 
you to the main entry page. 

Lines 730-870: Hard copy of the 
entries is made in this subroutine. The 
entries are PRINTed one after the other 
in Lines 860 and 870 and are not 
TABbed, as in Lines 430-435. Unlike 
continuous print, the pages are num- 
bered and headed in columns. Entries 
are printed in the current (sorted) order 
— i.e. if a SORT by callsign has been 
carried out, the log will be printed in 
callsign order; if not, it will be printed in 
entry order. Stop and pause are similar 
to Lines 700-710. 

Lines 880-920: Entries are 
SAVEd to tape in this subroutine in the 
current (sorted) order. 

Lines 930-980: Previously sAVEd 
entries are LOADed from tape in this 
subroutine. 

Lines 990-1000: The key beep is 
toggled on and off in this subroutine by 
PEEKing decimal 30779 (7836 hex), 
checking its value and adjusting Y%. 
When 30779 has a value of O and 
Y% = 1, the beep is off. If 30779 has a 
value of 1 and Y% -: O, the beep is on. If 
you are wondering why | used Y% to 
switch the indicator in Line 136 and 
didn't simply PEEK 30779, it isn't be- 
cause | didn't think of it but rather be- 
cause, for some reason or other, the 
value in 30779 is intermittently mis- 
read and therefore unreliable alone. 

Lines 1020-1080: Memory left 
subroutine. This is useful if you have a 
computer with more than the basic 
24K. By adjusting T% in Line 40, and 
keeping an eye on this subroutine, you 
can have more entries in string RAM at 
the one time. The amount of memory 15 
calculated by calling a routine at десі- 
mal 10196 (2704 hex). When USR(X) 
is used, the amount of free RAM in 
bytes is derived. USR(XS) derives the 
amount of string RAM in bytes. Line 
170 is used to reset decimal 30862 
and 30863 to the beep routine. See 
Line 10. 


USING THE PROGRAM 


Once the program is typed in and 
appears to be error free, SAVE it be- 
fore you attempt to RUN it as it may 
contain an error that causes the pro- 
gram to crash and be lost. Once it is 
SAVEd, и is then safe to start as the 
SAVEd copy can be loaded and edited 
if the program crashes. 
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Once you type RUN апа press RE- 
TURN, the first screen will ask you to 
enter the starting entry number. If this 
15 the first time you are using the pro- 
gram, it will be 17. If you are going to 
LOAD previously saved entries, just 
press RETURN with no number. 

There will be a slight pause as the 
computer works itself out, then the 
main entry screen will appear with a 
beep. The cursor will be on the bottom 
of the screen — commands are en- 
tered from this point and nowhere else. 
If you wish to complete an entry, press 
RETURN. The cursor will then move up 
to the date — type it in the DDMMYY 
format as indicated (1st October, 1986 
would бе "0110867. Remember to put 
a zero in front of the number if it is a 
single digit (i.e. 4th is O4, March is O3). 

An important point to note is not to 
go beyond the dotted markers for each 
parameter. If you do, the computer will 
automatically remove the extra charac- 
ters but your screen will end up in rath- 
er a mess. If the screen does happen to 
get into a mess, just use the CLEAN 
command to reprint it. 

When you have the date typed in, 
press RETURN and the cursor will 
move down to callsign. Type this in, 
not forgetting to press RETURN once 
you have finished. The cursor will then 
move down to the time. As with date, 
time should be entered in the HHMM 
format — i.e. 7 PM EST would be еп- 
tered as 1900 (or 1100 UTC). 

Be careful not to use semi-colons or 
commas in any of the entries, especial- 
ly in 'remarks', as this will cause an 
error in the computer — 'extra ignored' 
or ‘redo’ — making life just a bit con- 
fused. If you do encounter such prob- 
lems, forget the entry you were typing 
in and press ВЕТе ^! until you hear ihe 
command line click. You can now see 


PROGRAM LISTING 


0010 POKE 30744,1: POKE 30862,80: POKE 30883,52; CLEAR 


10000: CLS 


0015 PRINT "SERIAL: TPE2.310586*: PRINT 
0020 PRINT “COMPUTER LOG BOOK’: PRINT 'BY ALEX JOHNSON” 
0030 PRINT *(C1 COPYRIGHT 19867: PRINT8386, 'STARTING ENTRY 


[space NUMBER"; 


0040 T1-99; INPUT 5%: IF 5109999 OR S1(0, 10 ELSE CLS 


the reason for this click that cannot be 
turned off. Type 'CLEAN' as before and 
restart the entry. 

If the screen is complete and cor- 
rect, type 22” and press RETURN. This 
fills in the entry. 


SPECIAL COMMANDS 


Once you have a few entries in the 
log, you can have some real fun. Re- 
member commands can only be 
entered on the bottom line of the 
screen — the command line, and it 
is only necessary to enter the first two 
letters of each command. 

FIND is used to look through the log 
entries for a specified callsign. When 
the callsign is located, it will be dis- 
played by filling in the details on the 
entry screen. You can then continue 
the search for further contacts by 
pressing ‘Е’, or resume log entries бу 
pressing “С”. 

DELETE removes an entry, placing 
a void on the callsign and removing all 
other information. You are asked for 
the entry number, so if you're unsure of 
the number, use DISPLAY or FIND to 
locate it. 

SORT rearranges the entries in al- 
phabetical order (press 'C' for callsign) 
or in entry order (press ‘Е’ for entry). 
This is a BASIC program, so sorting 
does take a long time. Make yourself a 
coffee and have a break while it sorts. 

RESTART simply starts the pro- 
gram over again. All entries are re- 
moved from the memories and all 
variables are reset, so SAVE your log 
before using RESTART. 

DISPLAY prints all entries onto the 
screen. if you wish to pause while the 
entries are listing, press ‘P’ or the 
space bar. To stop the list completely, 
press 'S'. Once printing is complete, 
press 'C' to continue log entries. 


0150 PRINT "ТН 


0050 DIM 510,70, J$(101, K$L10): D$2*000000*: №=-1 vee! 


0060 7$='[32 spaces]* 
0065 ааа, 


0130 PRINT "КЕС R/S 
0140 PRINT 'FRER MHZ? 


СР or Continuous Print is used to 
keep a running hard copy of all entries 
as they are made. CP pages are not 
headed or numbered. When CP is acti- 
vated, it is indicated on the command 
line. CP is deactivated by retyping CP 
on the command line. 

PRINT makes a hard copy of the 
entire log on the printer. You must first 
enter the page length and the inter- 
page length. The page length must be 
more than six lines. Each page is num- 
bered and headed and also has the date 
displayed on it. Stop and Pause com- 
mands are the same as for DISPLAY. 

SAVE is used to send log details 
from RAM to tape. The SAVEd entries 
all have the same file number, so take 
note of the counter number on the da- 
tasette each time you SAVE. 

LOAD is used to retrieve previously 
SAVEd files from tape. 

MEMORY displays the amount of 
RAM, string memory and file space 
remaining. 

BEEP turns the key beep on and off. 
When BEEP is activated it is indicated 
on the command line. To deactivate it, 
type BE again. 

CLEAN is used to clear and reprint 
the screen if it becomes messy through 
an error. 

227 enters the on-screen details in 
the log file. 

| have two versions of the program: 
the one listed here (tape version) and 
another for VZs with a disk drive. The 
disk version is, | must admit, far superi- 
or in speed, capacity and commands. If 
difficulties are met typing this program 
in, and you would like a tape or disk 
copy of the working program, please 
drop me a line at the address men- 
tioned earlier, with a stamped self-ad- 
dressed envelope, and | will offer some 
suggestions. 


0070 IF С%=1, (4:0: CLS: GOTO 80 ELSE ММ 
0080 N$-MID$(STRSUNT4S1] ,2, LENLSTRSUNT 91] 1] 
0090 IF LEN(NSIC4, N$z'0'1N$; GOTO 90 

0100 X-USR(O): PRINT&O,2$12$128; 

0110 PRINTE96, "ENTRY 
0120 PRINT 'CALLSIGN? VK....*: PRINT 'HHMñ 
oot PRINT "SENT RIS ° 


? 'qN$: PRINT “DDARYY 2706 
9 L] 


caerse PRINLAMODE 2,22 


т еее PRINT КАМЕ ғ 2,0252 


0160 PRINT "КЕКАККО2................ ТЕ N1)IY,60 SUB 640 
0170 PRINT8448, '[8 spaces]?[22 spaces]'j 
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0175 IF 24-1, PRINT@448, '[rev]CP' 
0176 IF Y1=1, PRINT@4S1, '[rev]1Ë' 


0180 PRINT8456, 4: INPUT AS: IF A$z**, 320 ELSE AS-LEFTS 
(A$, 2) 

0190 IF А$= "ЕТ", 440 

0200 IF A$="DE", 510 

0210 IF A$="50", 550 

0220 IF AS="RE*, RUN _ 

0230 IF A$="DI', 670 

0240 IF A$-'PR', 730 

0250 IF A$z'CP*, 650 

0260 IF A$='SA', 880 

0270 IF A$="LO", 930 

0280 IF A$-'ME', 1020 

0290 IF AS="BE*, 990 

0300 IF A$="22", 350 

0305 IF A$z'CL', (421: 6010 70 

0310 6070 170 

0320 FOR М! TO 10: PRINT@(ARE321 +104, **{: IF АЗ=И, INPUT 
D$: GOTO 340 

0330 INPUT IL$(A%,NS) 

0340 NEXT: POKE 28671,1: POKE 28671,32: 6010 170 

0350 PRINT8O," [reviCHECKING': TIS(O,NDI=NS: I1$0L,N1170$ 

0351 11$02,N11z11$02, N11 4Y$: 11$03,N1]z11$ (3, N11 +1$ 

0352 11$04,N11211$14, NED £Y$:. 11$(5,№$1=11$(5, NS) e$ 

0353 [1$05,N112T1$ (6, N11 4Y$: 11$(7, №] =11$ (2, NT] 4$ 

0354 11$(8, №1 =11${8,№1+\$: LI$(9,N11211$(9, NE) +Ү$ 

0355 11$010, N11 11$ (10, NT) «Y$ 

0356 11$02,NTIzLEFTS$(LIS(2,N11, 61: I1$03, NT) = ЕРТ$ 
($0, 11,41 

0358 11$(4,NT1zLEFTS (TIS (4, МА), 21: LISIS NT) 2LEFTS 
(11$(5,К%),2) 

0360 11$(6, NS)=LEFTSITIS(6, NE), 71: 11907, NN) LEFTS 
U1$0, 811,31 

0362 11$08, NT) LEFTS (11$(8, NE), 10); 11$(9, NT) zLEFTS 
(1$(9, NB), 10) 

0344 ILS(L0,WE)=LEFTS(L1$(10, NT), 16) 

0366 IF N1-0, 420 

0348 FOR AT=NT-1 TO 0 STEP -І IF 11$02,N11211$02,A1) , 380 
ELSE NEXT 

0370 6070 420 

0380 PRINT8O,I1$(0,A1];* — (rev]FQUND*? PRINT I1$12,A1]; 
*(spacel'; 11$0L,A1)j 

0390 PRINT "[spacel*; I1$03,A11; "[5расе]”; 11$19,А%) 

0400 PRINT8I3, "Crev]P)RINT DIELETE* 

0410 A$=INKEY$: IF A$z'P', 420 ELSE IF A$z'D*, 100 ELSE 410 

0420 IF 721-1, 430 ELSE 70 

0430 FOR A1-0 TO 10: LPRINT 11$0A1, N1) IF ASCLO, LPRINT 
* [space]'j 

0435 NEXT: LPRINT: GOTO 70 

0440 PRINT@O, *CALLSIGN TO FIND ? VK....*: PRINTED,” 735 
INPUT B$ 


— M M— M a —— F — M —— e — X99 
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0450 РКІКТЕ0, '(rev]SEARCHING'; 2$: FOR AT=0 TO N1-1 

0450 IF 116(2,A1)=1$, 470 ELSE NEXT: GOTO 100 

0470 РИМ, "Lrev]FOUND';2$: FOR 1-0 TO 10: PRINTR(EL 
13214105, 11$001,A11 

0480 NEXT: SOUND 0,2: PRINT@6, "(reviFIURTHER CIONTINUE' 

0490 CHIKKEYS: AS=INKEYS: IF A$z'F', 500 ELSE IF М7”, 
100 ELSE 490 


0500 X=USR(0I: PRINTEO, '(revlSEARCHING';2$: NEXT: GOTO 100 

0510 PRINTEO, **;: INPUT "ENTRY TO DELETE *;A1: А1=А1-51 

0520 IF ATCO OR AT)NT-1, 100 

0530 PRINTEO, "(reviDELETING*;2$: FOR B3=1 TO 10: 
11$ (85, АК | =* (space]*: NEXT 

0540 116(2,A8)="VOID*: SOUND 0,3: GOTO 100 

0550 PRINT@O, "SORT BY (revlEINTRY CIALLSIGN' 

0560 AS=INKEYS: IF AS="E* OR AS="C*, Х=058 (01: GOTO 570 
ELSE 550 

0570 PRINT@0, '[rev]SORTING';7$ 

0580 FOR A10 TO N1-1: FOR 21-0 TO 10: 1$(0%1=11$(0%, A1]: 
NEXT 11 

0590 FOR B1-A1 TO N1-I 


0600 IF AS=*C*, IF J$(2) S 11$02, B1) , 630 

0605 IF A$s"E*, IF 1$(0) (S160, B1), 630 

0610 FOR 11=0 TO 10: K$D1IzLI$(DT, P): 16001, 11216001] 

0620 1$(011-K$(01): NEXT DY 

0630 NEXT BL: FOR 11-0 TO 10: LI$D1, A1) 2150011 : NEXT D, АХ 
: 6010 100 

0640 PRINTEO, "(reviFILES FULL’: SOUND 31,1; 31,1; 31,1; 
31,1; 0,5: RETURN 

0650 IF 21-0, 21-1 ELSE 21-0 

0660 6070 100 

0670 CLS: PRINT "[revlPlAUSE S)TOP*: PRINT: SOUND 0,1: FOR 
At=0 TO NL-1 

0680 FOR B3=0 TO 10: IF B1=á OR B1=9, PRINT 17 spaces]*;: 
IF 0029, PRINT ' *; 

0690 PRINT ПМ; *: NEXT: PRINT: PRINT 


0700 ASINKEY$: IF A$z'[spacel* OR AS="P*, Х=058 (01: SOUND 
0,5: 8010 700 

0710 IF A$2'S*, 715 ELSE NEXT 

0715 PRINT "Crev]CIONTINUE' 

0720 AG=INKEYS: IF А$=°С°, CLS: GOTO 100 ELSE 720 

0730 PRINTEO, **;: INPUT "PAGE LENGTH”; L1: ІРІК?, 730 

0732 PRINTEO, 78: PRINT8O, **;: INPUT "INTER-PAGE LENGTH’; 
H" 

0734 PRINTEO, Z$: PRINT8O, "7: INPUT "PAGE NUMBER*;PT: 
P1ssP1-1 

0736 PRINTEO, 'SET UP PRINTER (rev]SI TART WHEN READY" 

0740 AG@IMKEYS: IF 46:75”, X-USR(O): GOTO 750 ELSE 740 

0730 PRINTEO, '[rev]PRINTING(rev off) (rev]PIAUSE SITOP*; 
2$: GOSUB 760: GOTO 840 

0760 РЪ=РЪ+1: LPRINT CHR$114); “COMPUTER LOG BOOK’ 
CHRS(15) I 

0770 LPRINT ТАВ (4511 "PAGE °; P1 
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0790 IF РЖИ, №=4: БОТО 813 

0790 D&=6: РІМ * BY ALEX JOHNSON”; ТАВ (6015 
H18$:0$,1,2)5 */'{ 

0800 LPRINT MID$(0$,3,21; 4/4 MID$(DS,5, 2) 

0810 LPRINT ' (C) COPYRIGHT 198617 

0815 LPRINT: LPRINT 

0820 LPRINT "ЕМЕТ DATE ` CALSGN TIME R S FREQ MD GTH 
(8 spaces]*; ы 

0830 LPRINT °МАМЕС7 spaces]REMARKS': LPRINT: RETURN 

0840 FOR A1-0 TO N1-1: 0%=0%+1 

0843 B$=INKEY$: AS=INKEYS 

0845 IF A$z'[space]' OR A$z'P', X=USR(O): SOUND 0,5: 6010 
843 

0848 ІР 45-5”, 100 

0850 IF 11011, FOR 11-1 TO 1%: LPRINT: NEXT: 60508 760 

0860 FOR 81-0 TO 10: LPRINT 11$ (8%, АМ;: IF 31010, LPRINT 
"(расе)"; 

0870 NEXT: LPRINT: NEXT: 6010 100 

0880 CLS: PRINT '[rev]SAVE[rev off] FILENAME °$: INPUT C$' 

0885 PRINT@S, '(reviSITART WHEN READY(rev oft1°;2$ 

0890 AS=INKEYS: IF A$='S', X=USR(O): PRINT@4, “теу 167125 
*60T0 900 ELSE 890 

0900 PRINTE "100. DATA.START’,C$,S3,N% 

0905 FOR А1=0 TO N1-1: A$z**': FOR BR=0 TG 10: А$=А$+ 11$ 
(BLAS). NEXT 

0910 PRINTA LOG’, A$ 

0920 PRINT@98, AL C$: NEXT: GOTO 980 

0930 CLS: PRINT '[reviLOAD[rev off] FILENAME 7%: INPUT C$* 

0935 PRINT8S, "'Irev]SI TART WHEN READT';2$ 

0940 А6-ІНЕЕТ IF ASz'S', X=USR(O): PRINT@4, "lrev]ING'; 
26: 6010 950 ELSE 940 

0950 INPUTE 'LOG.DATA.STARI', A$ ST, NT: IF AS=C$, 960 ELSE 
950 

0960 FOR A1z0 TO N1-1: INPUTS 'L0G',A$ 

0961 11$10,АЪ1=М10$(А$,1,41: 11$(1,А11=М10$(А$,5,10) 

0962 LIS(2,ARJ=MIDS(AS, 11,161: 11$(3,А11=М107$(А$, 17,201 

0963 11$14,АЪ1=М10$(А$, 21,22): 11$05, ATI=MIDSIAS, 23, 24) 

0964 11$16,А\1=М10$(А$, 25,311: 11%(7,АЪ} =М10$ (46, 32, 341 

0965 11818, АЗ! 28 ID$(A$,35, 461: 11$(9, A01 =М10$(А$, 47,561 

0966 11$(10, A11 =М10$(А$,57, 721 

0970 PRINT A1 C$: NEXT 

0980 SOUND 20,9: (1-1: GOTO 70 

0990 IF PEEK (30729120, POKE 30779,1: Y1-0: GOTO 100 

1000 POKE 30779,0: Ү1г1: GOTO 100 

1010 SOUND 0,5: PRINT80O, Z$: GOTO 100 

1020 CLS: PRINT ° (гем 1МЕМОВҮ LEFT”: POKE 30862,21 2: POKE 
30863,39 

1030 PRINT: PRINT: PRINT 11-81; “FILES LEFT’ 

1040 PRINT USR(X); “BYTES OF RAM FREE’ 

1050 PRINT USR(X$); “BYTES OF STRING RAM FREE’: PRINT 

1060 PRINT: PRINT: PRINT '(rev]C)ONTINUE* 

1070 POKE 30862,80: POKE 30863, 52 

1080 AS=INKEY$: IF A$z'C", (41: GOTO 70 ELSE 1080 


5 of Ss. 


Basic program for 
vented box enclosures 


This short BASIC program for VZ computers will design the size of 
the vent needed in a bass reflex enclosure to tune it to a given frequen- 
cy. It calculates the length of the vent from the given diameter, box 
volume and box frequency. Also the tuned frequency of an existing en- 
closure can be found from the cabinet volume and vent dimensions. 

Surprising though it may be, the woofer size or type does not affect 
the tuned frequency; this means that you won't need any speaker data. 

If the program gives a vent length of about 20mm then just a hole in 
the baffle is needed. Remember, however, that any vent should have a 
diameter not less than one quarter of the woofer diameter to prevent 
excessive air velocity. 

For checking an existing design press RETURN when “BOX 
FREQ. HZ...” appears. This frequency is then calculated using the 
other data. If “NEW VENT DIAMETER MM. ” appears, enter a new 
larger diameter and try again since the desired frequency cannot be 
achieved with the previous value. 

Phil Allison, 

Summer Hill, NSW. 


CLS: PRINT 

PRINT" PROGRAM TO CALCULATE VENTED" 

PRINT” BOX PARAMETERS” 

PRINT"  *s*aeesecceeeseoeseeceeeeseeee" POINT. РЕТМТ 


INPUT” BOX VOLUME LITRES “:VB: PRINT: ТЕУВ. =OTHENSY® 
INPUT” VENT DIAMETER MM. ":0: PRINT: ІРО. =ОТНЕМЗО 
IFFB»OTHEN100 | 

INPUT" BOX FREQ. HZ . ";FB:PRINT: IFFB: ОТНЕМ?О 
IFFB»OTHEN100 у 
ТМРУТ" VENT LENGTH ММ "Ш: PRINT: IFL: THONAN 

IF FB20THEN1 230 
L=2360°D*2/(VB°FB*2)-.8°D: IFL. ОТНЕМРВІМТ" NEW”: ОТОМ 
PRINT: PRINT 

PRINT" VENT LENGTH MM:  ";:PRINTUSING"$222.4":L 
PRINT" VENT AREA SO.CM:  "::PRINTUSING"2242.4";:2.BSE-3*D^z 
GOTO1S0 

FBs((2360*D^2)/(CL«.8* D) МВ) ^0. S: PRINT: FRINT 

PRINT" BOX FREO. H2: "SSDPRINTUSING"2424.*":FB 
PRINT" szxaxszsciaxzcazazazziicci":FDO:O 


PRINT: PRINT: GOTOSO 
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Memory mapping апа 
computer number systems 
— using the VZ200/300 


Bob Kitch 


This contribution will hopefully stimulate users of the У220О/ЗОО (or perhaps 
other small micros) to think about what actually lies behind the keyboard or 
monitor. Therein resides, not simply a collection of electronic components, 
but a truly creative, near-art form; only restricted by the users’ ingenuity. | 
also hope to provide a firm foundation for users to understand how they 
should visualise or conceive the internals of their computer. This will lead to 
more imaginative and rewarding use of their somewhat meagre hardware 


resources. 


THE COMPUTER can be conceptualised (thought of) on two 
distinct planes: (i) the tangible, mechanical or physical lev- 
el; and (ii) the intractable, esoteric or conceptual level. These 
two "states" are often synonymously associated with the 
hardware and software aspects of computing but they are 
not quite analogous as a brief consideration should reveal. 

The realisation that the computer can in reality adopt any 
position between these two end-states sheds some insight into 
how useful a computer can be as a problem solving tool or 
as a creative device. 

The computer is a virtual machine. It is incapable of do- 
ing mechanical work such as that done by an internal com- 
bustion engine. Furthermore, a computer can be configured 
via suitable programming to carry out any function that we 
may envisage for it. Again the analogy with a tool, for in- 
stance a spanner, is instructive. A shifting spanner has only 
one use — it is dedicated to that job (although I have seen 
some tradesmen use it as a hammer!). The important notion 
in computing is that our imagination is the limiting factor 
in determining the usefulness of the computer. We may wish 
to use it to monitor the security of our home or to create fan- 
tasies of our mind in intellectual and role-playing games, to 
carry out tedious and repetitive number crunching, or to cor- 
rect text for us — etc. The spectrum of jobs is vast, and in- 
creasing almost daily. 


Transformation 


Somewhere between the conception of an idea and the trans- 
lation of this into a computer-based chore, lies the fundamen- 
tal task of the programmer. The use of the operation called 
“transformation” is vital to the succes of this translation. The 
transformation procedure takes a particular notion in our 
minds (the “object”) and produces a “model” of this in the 
computer. The model may be termed the “image”. A good 
computer image is a skilful combination of the joint hard- 
ware and software aspects of the particular computing con- 
figuration. 

Often a number of step-wise transformations are required 
to reach the desired goal or end-point. The distribution of 
tasks proportioned between hardware and software depends 
upon 
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i) the resources available, and 
ii) the particular talents of the person undertaking the 
implementation. 


Electrical engineers tend to solve problems with hardware 
intensive solutions, whilst programmers often develop 
elaborate algorithmic software solutions. 

Not surprisingly, transformation has a well developed and 
rigorous expression in mathematics where the somewhat al- 
lied ideas of correspondence (between similar objects) and 
function (connecting objects) have relevance. The box enti- 
tled "Transformation Concepts” accompanying this article 
futher elaborates upon some of the powerful transformation 
concepts — in layman's language. 

The way in which “correspondence” occurs in computer 
science and with which perhaps most programmers are 
familiar, lies in the various types of codes and coding prin- 
ciples which are employed to connect the diversity of ideas 
under software control. Note that in transformations from 
object to image the direction of the conceptual movement 
may be in either direction or sense. 

Thus encoding represents transforming the object into the 
image and decoding represents returning the object from the 
image. Also, multiple levels of coding areoften used, depend- 
ing upon where we are positioned in the hardware-software 
spectrum. 


Codes 


Consider the following code types: 


i) Codes used by electronic circuits to perform digital oper- 
ations e.g: binary codes. 


ii) Codes used to convert decimal numbers into binary form 
© e.g: binary coded decimal (BCD) and gray scale. 


iii) Codes used to convert decimal numbers and alphabetic 
symbols into digital form e.g: ASCII, EBCDIC and 
. Baudot code. 


iv) Codes used by computers to perform a prescribed ser- 


jes of operations e.g: Z-80 instruction code and PDP8/E. |» 


| of 6. 


у1-300 


Su КУЕ, 64K Std. + | бак 
16K Expansion’ Memory Expansion 16К Expansion Memory Expansion 


Signed 
Decimal 


| Decimal 
Hexadecim 


| Unsigned 


LI 
ne 
= 
= 
= 
> 


0 
“ә 
° 
> 
о 
^^ 
со 
о 
o 
0/1 


О 
№ 
о 
E 
wo 


~ 12268 
- 12889 


Switched: 16K RAM Bank 0/1 


Switched 16K RAM Bank 
Switched 16K RAM Bank 
Switched 16K RAM Bank 
Switched 16K RAM Bank 
Switched 16K RAM Bank 


16K Expansion RAM 


-16384 


-16385 
-18432 


-18433 


2К top of fixed 
RAM Bank 


12К top of fixed 
RAM Bank 


16K Expansion RAM 


Internal User RAM 16K 


Internal User RAM 6k 


Reserved RAM Reserved RAM 


ENS RAM 2K 


Video RAM 2K 


Memory Mapped 1/0 2k Memory Mapped 1/0 2k 


Reserved ROM 
Reserved ROM 


—FF 
Port Addressed 1/0 Port Addressed 1/0 


MEMORY MAPPING 
FOR 
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NUMBER BASE CONVERSION & MEMORY MAPPING 


In the accompanying article the need to be able to change num- 
ber representations, according to differing bases, becomes ap- 
parent. 

Three bases are usually cited and often freely interchanged. 
These are: 


base 10 — decimal (dec./D) uses symbols 0-9 
base 16 — hexadecimal (hex./H) uses symbols 0-9, A-F 
base 2 — binary (bin./B) uses symbols 0 and 1 


The first system is the most familiar to us. The last is the num- 
ber system of digital computers. The hex system is a convenient 
intermediate form between decimal and binary systems. (A fourth 
system to base 8, or octal — using symbols 0-7 — is sometimes 
employed and is also a convenient intermediate form — see later). 
The accompanying table is an indispensable reference for con- 
verting base numbers. І always have this chart alongside me when 
programming — although some people may be fortunate enough 
to have an electronic calculator with base conversion functions. 
Because there are three base numbers, it follows that there are 
six possible types of conversion. At the conclusion of this box you 
should be familiar with each conversion and be able to manipu- 
late the resulting numbers. 


DESCRIPTION OF TABLE 
Table 1 is composed of six columns. 

Column 1 (left-hand most) represents single hex digit ranging 
from OH to FH. 

Columns 2 to 5 are labelled Most Significant 3-0 for decimal 
numbers. 


MSO corresponds with 16* *O*N (1*N) 


MS!  " " " 16**1°м(16°М) 
MS2  "  " “ 16'*2'N(256"N) 
MS3  " т  " 16'*3'N(4096*N) 


Column 6 is the four-bit binary number corresponding to the hex 
digit in column 1. 

One hex digit can represent half-a-byte (one-nibble) of binary in- 
formation. Hence the close relationship between hex and binary 
representations. A 16-bit (two-byte) binary number maps onto four 
hex digits. A single byte maps onto two hex digits. (Octal or base-8 
numbers map onto three bits of binary hence an eight-bit binary 
number can be represented by three octal digits.) 


CONVERSION PROCEDURE 
A. We will start converting a hex address value into its correspond- 
ing decimal and binary values. 


1. Converting hex to dec. We will do this using an example. For 
instance, what is the decimal mapping of address 345CH? Note 
that the Most Significant Byte (MSB) is 34H and the Least Signifi- 
cant Byte (LSB) is 5CH. 

The corresponding decimal for 3H (actually 3000H) appears in 
column М53 and maps as 122880. Similarly, the 4H (400H) in po- 
sition MS2 maps as 1024D; 5H or 50H maps as 80D in MS1 and 
finally, CH corresponds to 12D from MSO. 

Thus, 

3000H --->- 122880 
400H ---> 10240 
50H ---- 800 

+ СН —— + 120 


345СН: ——313404D 


So 345СН maps as 134040. А little involved, but easy with the 
table. 


2. Converting hex to bin. Remember l said that hex and binary sys- 
tems are closely related. Again, what is the binary mapping of ad- 
dress 345CH? 


3 4 5 C 
| | | | 
0011 0100 0101 1100 B — trom column 6 


So the binary address for 345Ch would be — 


H — from column 1 


М5В 001101008 LSB 010111008 


It could hardly be simpler! 
See how difficult it would be to remember binary, but hex is much 
more concise and memorable? 
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B. Let us now take a decimal number and convert it i nto hex and 
then binary; 


3. Converting dec to hex. What is the hex mapping of 220100? 
This involves a little scanning of MS3-MSO of the table. 

First scan down MS3 for a decimal number which is equal to, 
or just less than, 22010D. This is seen to be 20480D which maps 
as 5000H. Subtract this value from 22010D and look for the num- 
ber just lower than this is MS2. For example 22010D — 20480D 
ж 1530D. The number just lower than this in MS2 is 1280D which 
maps as 500H. The remainder from this operation is 250D which 
corresponds to 240D or FOH in М51. The final remainder is 10D 
which maps as AH in MSO. 


Thus: 

` 220100 

-20480D ---->- 5000H 
- 12800 — —3 БООН 
- 2400 ——»- РОН 
- 100 —— + АН 


00 — —39 55FAH 


It should be easy to convert this hex number into binary 
equivalent. 


55FAH mapsas 01010101 11111010 B 


C. Let's now start with a binary number and convert it to hex and 
then to decimal (as previously done). 


4. Converting bin to hex. By now you should be getting the idea. 
Simple isn't it? For example, convert the two-byte address 
10011111 110100118 (looks horrible doesn't it?) into its hex value 
and then decimal value. 

1001 1111 1101 0011 B — trom column 6 


9 F D 3 H — trom column 1 
Furthermore, 


9000H — —3 368640 


FOOH ———® 38400 
DOH ———3»» 2080 
+ 3H——> + 30 


“ӘЕОЗН —— 409150 


For those that have been following closely, 40915015 ап unsigned 
decimal and mapped as a signed decimal it is 


40915 — 65536 = -24621D 


(see later in main article if unsure) 


So in summary, we now have four ways of mapping the same 
address: 


hex 9FD3H 

unsigned decimal 40915D 

signed decimal -246210 

binary MSB 10011111B LSB 11010011B 


As a final comment and for completeness, it should be said that 
all the examples given herein are for unsigned decimal numbers 
in the range of 0 to 65535D. These map onto two-byte numbers 
ranging from 0000H to FFFFH in hex and 00000000 00000000 to 
11111111 11111111 in binary. 

The same principles apply for single-byte numbers except that 
the range of unsigned decimals is reduced to 0 to 255D and 00H 
to FFH in hex. Only MS1 and М50 need be used in converting 
single-byte numbers. c 

Given this background then, it should be easy to calculate the 
appropriate values to POKE into addresses 308620 (78ФЕН) and 
308630 (788FH) to initialise the USR( command on the VZ. But 
more of that next time. 

If you want some practice in number base conversion and re- 
quire some additional confidence in following the procedures set 
out herein then take some addresses from the memory fnap and 
ractise converting them. (I hope | get them right!) 
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v) Codes used by programmers to describe а problem to 
the computer e.g: BASIC, FORTRAN, and SAS. 


vi) Codes used by the populace to have work done by a com- 
puter which is often transparent to the user. Everyday- 
type language is often used to communicate to the com- 
puter. (i.e: no special skills are required) e.g: POS (‘Point- 
of-sale’) terminals or pushbutton data entry panels on 
microwave ovens etc. 


All of these forms of transformation (or coding) describe 
a relation or function between any object (the notion) and 
its corres, onding image (the programme). Flowcharting is 
often an intermediate coding step in the transformation 
process. 


The memory image 


Towards the hardware end of the spectrum previously allud- 
ed to lies the memory or storage system of the computer. Both 
the programme (or driver) and data are stored in memory 
which is sequentially addressed in the present generation of 
Von Neumann machines. Often a successful programmer 
"needs to get close" to this physical device — particularly 
in a small microcomputer environment where the memory 
resource is usually limited. 4K of memory usually requires 
some smart coding to get а worthwhile programme running 
— and often in machine code. Larger machines sometimes 
use a virtual-or paged memory system so that the program- 
mer does not need to get close to the hardware limitations. 
Such things as programme and storage overlaying can be 
done to make the memory system appearlarger than it actu- 
ally is. The new generation of 16- and 32-bit microproces- 
sors include on-chip memory management functions (e.g: the 
80286) to handle memory paging. 

The usual way of describing the memory system of a par- 
ticular computer is via the " Memory Map". This is a trans- 
formation of the actual (object) memory chips contained in 
the computer. This conceptual diagram (image) is an aid for 
the programmer. It is not a map in the same sense as a geo- 
graphic (or road) map, but rather it has a one-to-one cor- 
respondence with the actual memory system. It does not 
actually point up any directions in the memory, in the way 
that a road map does. The memory map is simply a useful 
programmers' image of the storage which can be accessed 
by the CPU and the way it is organised. 


VZ memory maps 


(You thought I was never going to get to it!) Figure 1 is a 
Universal Memory Map) for all the VZ-200 and VZ-300 com- 
pluters. These are expandable machines in that additional 
memory modules, disc systems and various other peripher- 
als can be added onto the standard system. Eight distinct 
types of machine are detailed: 


а) standard “8К” VZ-200 and 
b)standard “18К” VZ-300 (both shown in the dark outline) 


In the standard machine an area of 10K is reserved for plug- 
in ROM cartridges. To each of the types can be added: 


i) a 16K memory expansion module or 
ii) a 64K memory expansion module, and additionally 
iii) a disc system containing an 8K DOS can be added which 
utilises portion of the reserved ROM area. 


Thereby eight types of VZ configuration are possible and 
shown in Figure 1. 

A study of the range of memory expansion modules added 
to the VZ-200 or VZ-300 indicates that they occupy different 


4 з с 


areas of memory. This clearly shows why expansion mod- 
ules are not interchangeable between models. Fortunately all 
of the “system areas" are compatible across models — other- 
wise software would not be transportable. All memory ad- 
dresses below the reserved RAM (communications area) are 
thesameoneither system. Thisincludes video RAM, memory 
mapped I/O, port addressed I/O and DOS ROM. As most of 
the peripherals are mapped into the I/O areas, these devices 
are also compatible between models. 


Numbering systems for memory mapping 


The three columns extending down the left-hand side of the 
map are the memory address ranges in the computer that are 
handled by the Z-80 microprocessor. Again the concept of 
"mapping" is worth noting — because the CPU uses none 
of the techniques shown in the columns to actually address 
memory! The actual (object) addressing method is a 16-bit 
wide binary sytem which, with suitable decoding, can resolve 
all the addressing functions necessary. A binary view of the 
addressing is unnecessarily complicated to obtaining a clear 
image of the VZ's address space. 

An explanation of the three numbering systems used on 
the memory map follows. 

Two forms of decimal (base 10) notation and one of hex- 
adecimal (base 16) are shown. These are image numbering 
systems of the actual (object) 16-bit binary (base 2) method 
used by the Z-80 (Port addressed I/O uses only eight-bits of 
the Least Significant Byte of the address, to uniquely identi- 
fy the 256 I/O ports). 

If you are not particulary familiar with converting or deal- 
ing with numbers derived from differing bases, then read the 
boxes called “Number Base Conversion" accompanying this 
article. 


Unsigned decimal addressing 


This number system is shown in the central column of the 
memory map. It is perhaps the easiest to understand and ex- 
plain. With a 16-bit binary number as used on the address 
bus, it is possible to uniquely map 2**16 or 65536 memory 
locations. These addresses may furthermore be mapped into 
a one-dimensional vector with memory location OD (2** 1-1) 
mapped at the bottom and memory location 65535D (2** 16-1) 
mapped at the top. This convention of “Чор” and "bottom" 
may be inverted — but top of memory is conventionally 
referred to as the bigger decimal number — so it makes little 
logical sense to have “ор” at the bottom! (Note that some 
memory maps are drawn in this inverted sense). 

Another sense of mapping is apparent and worth mention- 
ing here. This type of map is a byte-mapped transformation 
as each address is actually eight-bits wide. Most data process- 
ing programming deals with bytes as the fundamental units 
of information. However, the Z-80 can be addressed down 
to bit level and hence another bit-mapped image containing 
524288 (65536*8) bits could be conceived. Some controller 
applications make use of bit mapping because often the avail- 
able RAM for programme use is rather restricted and usual- 
ly the definition or resolution of the process is two-state and 
can be aptly modelled by a single-bit. 

In the unsigned decimal mapping methods, magnitude or 
size of the address number uniquely defines the location of 
the address in memory. Relational operators such as “great- 
er than" and “less than” work correctly. This image of ad- 
dressing is most easily visualised but it bears а difficult 
relationship to the 16-bit object addressing. 


Hexadecimal addressing 


This system is shown in the third column апа has ә stronger 
relationship to the two-byte wide addressing used by the CPU p 
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TRANSFORMATION CONCEPTS `` 


In a transformation, the point being transformed is called the ob- 
ject. A transformation maps an object onto its' image according 
to some relation. 

An image is the result when an object is transformed. e.g: 


X ——X+2 

3 — 5 

0 ——» 2 

6 — 8 

-7 ——> -5 
object image 


“the image of 3 is 5” 


Relations are a way of connecting sets of numbers — a map- 
ping is a special relation. 

In a mapping, any number in the set being mapped is an object, 
but the entire set being mapped is usually called the domain. 

The domain of a function is a set of numbers mapped by the 
function. 
The domain is the object set. 


e.g: domain + range 


1 
2 
3 
4 


“the set (1, 2, 3, 4) is the domain” 


A mapping is a relation in which, for every object mapped, there 
is one, and only one, image. 


But X is a factor of 


4 
— 
—= 6 
L° 
15 


is NOT a mapping. 


is a valid mapping. 


Functions are special relations in which each object is uniquely 
mapped onto one image. 


э» X**0.5 (square root of X) 
> +1 or -1 
» +2 or -2 
—rar O +3 or -3 
is NOT a valid function. 


Correspondence has four types: 
Mappings are: 


Many to one correspondence One to one correspondence 


NOT mappings are: 


One to many correspondence 
u 
v 


c cmm ed 
LOC 
— 


Many many correspondence 


=ч 
==; 
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bus system, Each nibble (half-a-byte or four-bits) of the ad- 
dress is mapped onto one hexadecimal digit. 

Whilst this system may appear a little unfamiliar, it has 
magnitude‘and sense — the same as the unsigned decimal 
notation::Therefore, similar connotations apply to the hex- 
adecimal system as to the unsigned decimal system. 

The correspondence between “ор of memory” іп an un- 
expanded VZ-200 as being 36863D or 8FFFH should be ob- 
vious from the memory map. It is simply a different way (by 
virtue of the number base difference) of image-mapping the 
same object. 

In certain applications it is more convenient to use decimal 
notation — and in others it is clearer to use hexadecimal. If 
it is necessary to get close to the hardware, such as when 
designing the address decoding for a peripheral expansion, 
then hexadecimal, with its closer relationship to bus address- 
ing, is better. Alternatively, when a programmer is wanting 
to locate a routine in memory, there is less need to get close 
to the machine, (e.g: when PEEKing or POKEing), and the 
more familiar decimal system is easier. In reality, ex- 
perienced programmers or engineers readily flip from one 
to the other — particularly if they have a “smart” electronic 
calculator with base conversion functions. 

Up to this point, all should appear to be logical, orderly 
and comprehensible. Unfortunately, the people who wrote 
the Microsoft version of the BASIC interpreter resident in 
the VZ (and previously used in the TRS-80 Level II, System-80 
and PET) must have thought that unsigned decimal and hex- 
adecimal were too logical and easily understood! If you try 
to PEEK into an address higher than 32767D or 7FFFH you 
will obtain an “OVERFLOW ERROR” message during run 
time. A look at the Reference Manual informs you that the 
valid address range is from -32768D to +32767D. Fair 
enough, but can one now assme that "top of memory” is 
* 32767D and “bottom of memory” is -32768D. A reasona- 
ble deduction, but unfortunately, entirely incorrect! Is our 
faith in mathematics and logic (relational operators) mis- 


placed? 


Signed decimal addressing 


The culprit is the signed decimal numbering system shown 
in the left hand column of the memory map. This number 
system is closely derived from the 16-bit binary system. The 
signed decimal numbering is developed from the two's com- 
plement binary system which is a method that facilitates the 


TABLE 1. 
CONVERSION DECIMAL — HEXADECIMAL — BINARY 


0 
1 
2 
3 

4 
5 
6 
7 
8 
9 
A 
B 
с 
D 
E 
F 


€ o£ 


» 


manipulation of negative numbers. ‘Do not be overwhelmed will not provide a consecutive listing of memory. It will 
if the terms are unfamiliar as it is not essential to understand = commence at the bees of the upper half of memory (SD = 
their derivation. There exists а simple relationship between 32768D) and proceed to the top of memory (SD = -1). It will 
the familiar unsigned decimal. and the. signed decimal «еп leap to the bottom of memory (SD = OD) and proceed 


systems. 3 to the mid memory (SD = + 327670) position. Not quite what 

The simplest way of expressing the relationship is that if was intended! ^ 
the unsigned decimal address is greater than-32767D then To achieve the desired result, the following loop could be 
эн 65536 from the unsigned decimal value — there- written: 

y obtaining a (negative) signed decimal. If the unsigned 
decimal is less than or equal to 32767D then the ase 10 FOR UD = 0 TO 65535 
decimal value maps directly. Expressing this in BASIC is as 20 SD = UD: IF UD > 32767 THEN SD = UD — 65536 
follows: 30 У- = PEEK (SD) 

40 PRINT SD, UD, V 
UD = unsigned decimal value 50 NEXT UD 


SD = signed decimal value | 
This will correctly step-up through memory consecutive- 


To convert UD to SD: ly from bottom to top (but slowly!) 

15 IF UD > 32767 THEN SD = UD — 65536 Uses of the тетогу тар 
ELSE SD = UD Having worked thus far through this exposition, what are 
some oí the uses to which the memory map canbe put? The 
To convert SD to UD first use is when it provides the programmer with a clear im- 
age (that word again) of how the addressable memory of the 
25 IF SD < 0 THEN UD = SD + 65536 computer is organised. A number of advanced programming 
ELSE UD = SD techniques for the BASIC interpreter also become available. 


š For example, the utilisation of the memory by a BASIC 
Refer to the mapping in the extreme left hand column of programme can be determined. Overlaying of the Programme 


the memory map wherethe signed decimal šystem is detailed. Statement Table by another routine but with retention of the 
Bottom of memory is still OD but top of memory is -1D. А Variable List Table, becomes possible. Also Assembly Lan- 
very important discontinuity occurs in the numbering sys- guage routines can be loaded into Free Space and called by 
tem at mid-memory, where adjacent bytes are numbered the USR statement. Overwriting and corruption of 
327670 and -32768D. Relational operators do not work in Programmes (images) can be avoided by reference to the map 
this mapping system. during loading. If, however, this does inadvertently occur, 


Suppose one wanted to PEEK into each consecutive then the memory map becomes an important load map for 
memory address over the entire range of memory from OD debugging purposes. 


to -1D (note!). As remarked previously, it is necessary to use A more detailed description of the I/O area (including the 
signed decimals when PEEKing. : video RAM) mapping for the peripheral devices, and the com- 
The loop written in BASIC — munications area would provide more information for ad- 
vanced programming techniques. Perhaps, with the Editor's 
10 FOR SD = -32768 TO «32767 indulgence, we may be able to explore these interesting areas 
20 V - PEEK (SD) at a future date? Meanwhile, get to understand your VZ'd, 
30 PRINT SD, V practise number base conversions and let your imagination 

40 NEXT SD run with applications for the VZ. 4. 
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Feedline Data Calculations for the 


The story of how this program came about is 
simple, but l believe it could be of interest. jt all 
began when the price dropped on the VZ200 
and Wal VK4AIV, bought one. 


After learning the basics of its operation, he 
began to search for useful programs involving 
amateur radio, finding them few and far 
between. 


Muchlater, І purchased a VZ300 at the same 
price as Wal's VZ200 and naturally asked Wal 
what programs he had. 


. Upon discovering the scarcity, | sat down 
and wrote a series oí short programs to ease 
the problems of endless work with calculator, 


CLE: БАНЕ? 
ЕБІНТІЕЗШ, 


^ 
Е 
= 
ых 


еді ты 
м VAIS 


РЕІНТІР442. 


IFH=2 THEME 


ns 
m] 


a ыз CC =] OS n 
LU qu а Га ны i mu a mr 
ұл 


1 


м 
EA 


PRIMES: 


Z 
Cu md 


m. 
ізі 


pu 
mS 


mma 


VOV EM ка t» — — на нана ра рш | 
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з 
FRIBMTEISA: 
FRIHTRES, 
РЕІНТІРЗӘУ, 


ВЕНПЖЖЖЖЕЖЖЖЖ 
aci gem 


РЕІНТІ121. 
FEIHT2125. 
FREIHTiZZ?. 
РЕІНТЕ>З1. 
PRIWTS Soy 
FRIHTIAAZ. 
TFH= 1 THEHS AG : 
ТЕН-гТНЕН tea 
TFM=2 THEN? FAE 
ТЕН=4ТНЕН1 45 
ІЕН= 1 THEM 1 

ТЕН? «THEH1818 


EO TENER 


VZ200/300 


pen and paper, for amateur radio work. 


Copies of these programs were given to Wal, 
who tidied them up and tied them together. 
This listing is part of the result. 

The program is to enable those interested to 
quickly calculate parameters for the construc- 
tion of coaxial cable or open wire feeder 
sections for matching antennas to feedlines. 

The calculations are derived from standard 
amateur radio books and simply are converted 
into Basic statements. 


They are as follows: 


COAXIAL CABLE DATA 
1 Е of a cable of a given size. 


ARLE Tapi t 
FEEDER DATA 


“CURES AL 
ОРЕН WIRE 


е 
"CHOSE 


MPT IO" > THEUTH 


ТЕНЕТТНЕНТАВ 


FERE 


ПР 
CHELE” 
"B-CIHSIDE ГІН.ПЕ OUTER" 
М IDIBNDL RT T DS n 
пите ПЕ БІН ПЕ ТЫГЕ" 
ПЕЕ PRE GUE YS" 
ПЕТІПМ" “ІНІЗІШІН 


Mies, LAL 


^re Tapi E 


HOSE 


H 


pot 3 0-12. 


P: 


Rick Buhre VK4AIM 
- 41 Mogford Street, Mackay, СЮ. 4740 


` This program came about 
when the price of the VZ200 
dropped dramatically. 


Inside diameter of outer conductor for a 
2r MM impedance and inner conductor size. 
utside diameter of inner conductor for a 
P d impedance and outer conductor size. 
ut off frequency for a cable of given size 
and impedance. 


OPEN WIRE FEEDER DATA 

1 Impedance of feeders of known wire size 
and spacing. 

2 Spacing required for a given wire size and 
impedance. 

There is space in the program for future 

additions to be inserted. | hope many amateurs 

will find it of use. 
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РЕМ ЕЕ ЖЕ 
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Estimating ihe noise performance of an ор 


атр stage is easy with 


a little circuit analysis 


and a short BASIC program to take care of the 
maths. The program requires only two 
resistance values and a figure for bandwidth 
to compute the noise levels for six popular op 


amps. 


by PHIL ALLISON 


There are several sources of noise in 
ап ор атр stage which together account 
for the .total background hiss level. 
These are the op amp itself (particularly 
the active devices employed in the input 
stage), the resistors used for gain set- 
ting, and the noise generated by the 
resistance of the signal source. 

It must be appreciated that any resis- 
tor has a self noise level caused by ther- 
mal agitation of its free electrons. This 
noise, commonly known as white noise, 
is random and spreads across the whole 
frequency spectrum. Its magnitude is 
given by a simple formula: 
where ` 
En = RMS noise voltage 


L = Boltzmann’s constant 1.38 x 10:23 


T = temperature in degrees K (degrees 
G-t273) 


B - bandwidth of measurement 


R = resistor value in ohms 

For example: а 10КО resistor at room 
temperature and measured with а 
20kHz bandwidth will generate a noise 
voltage of 1.84V. (Try some other 
values on your calculator to get a feel 
for the quantities involved).  . 

The program presented here can be 
used to select the best op amp for a 
given application or to examine the ef- 
fect on noise performance of design 
changes to a circuit. 

Before the program can be used, two 
resistance values must be derived from 
the circuit of the op amp stage in ques- 
tion. These I have called source resist- 
ance and input resistance. The first is 
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just the value in ohms of the internal 
resistance of the device generating the 
input signal. 

For example, for a 200-ohm micro- 
phone use a value of 200 for the source 
resistance, and for a high impedance 
microphone (internal step-up trans- 
former type) use a value of 50,000. If 
noise testing is to be done with the 
input shorted then use a value of 1 (one 
ohm) as the program will not accept a 
value of 0. 


Input resistance 


The input resistance has to be deter- 
mined from the circuit of the gain stage 
in question and here a little analysis is 
needed. Note that the input resistance is 
not the same as the input impedance for 
the circuits of Fig.1 and Fig.2. 

There are two common types of op 
amp gain stages: (1) the inverting stage 
as shown in Fig.l; and (2) the non- 
inverting stage as shown in Fig2. The 
input impedance of the inverting type is 
equal to R1, while the input impedance 
of the non-invertirig type is equal to Rin 


OUTPUT 
Q 


Fig.1: inverting op amp stage. 
Gain — R2/RI. 


rof 2 


and may be almost any value. The sig- 
nal gains of these two stages are given 
by the formulas beneath each diagram. 

Don't worry if your circuit has capaci- 
tors in series with the input or feedback 
ground (Fig.2) as normally these can be 
neglected. 

In Fig.1, the input resistance is equal 
to R1 in parallel with R2. If R2 is more 
than ten times КІ, then just use the 
value of КІ. 

For Fig2, the input resistance is the 
same as for Fig.l (ie, R1 in parallel 
R2), but if Rin is less than ten times R1 
then calculate Rin in parallel with R1 
and R2 as well. If there is a resistor in 
series with the input, add this to the 
input resistance. 

The figure for bandwidth can be any 
value up to the circuit bandwidth. For 
audio purposes, a figure of about 16kHz 
is commonly adopted for specifications, 

The program will, in a couple of sec- 
onds, compute the equivalent input 
noise (EIN) and noise figure for six op 
amps. Other op amps can easily be 
added to the list. 

The EIN is a standard way of specify- 
ing input stage noise as it is independ- 
ant of the overall gain. If you multiply 
the EIN figure by the gain of the stage, 
then you will have the noise voltage ex- 
pected at the output. 

The noise figure is also calculated so 
that the standard of performance of a 
circuit can be seen at a glance. It com- 
pares the stage in question with an 
imaginary noiseless stage and quotes the 
difference in decibels. A figure of 1dB 
would be very good.and hardly worth 
trying to improve upon. This figure is 


Fig.2: non-inverting op amp stage, 
Gain = (R1 + К2)/КІ. 


CLS:PRINT 
PRINT" 
PRINT" IN 
PRINT" 
PRINT 
INPUT" 
INPUT" 
INPUT" 
PRINT 
БАТА 3.5Е 
БАТА 1.SE 
RESTORE 
FORIzi1TO6:READ EN,IN 
KTz4.1E-21 


SOURCE RESISTANCE 
INPUT RESISTANCE 


«9, 
-8, 


PROGRAM TO CALCULATE NOISE" 
OP AMPS" 


XXX XX 5334 жж SS жж жж EE OS 8 2 2 2 1 


"IRS:PRINT: IFRS=OTHENSO 
"PRI:PRINT: IFRI=OTHEN60 


NOISE BANDWIDTH KHZ ";BW:PRINT: IFBW=OTHEN70 


ET=((EN*2+IN*2*(RS*24+RI%2)44*KT* (RS+RI) ) *BW*1E3)*0O.5 


IFI=1THENPRINT" 
IFI=2THENPRINT" 
IFI=3THENPRINT" 
IFI=4THENPRINT" 
IFI=STHENPRINT" 
IFI=6THENPRINT" 


RC4558 
TLO71 
LM301A 
UA741C 
TLOS1 


NESS34 "; 


:GOTO300 
; :GOTO200 
: GOTO300 
:GOTO300 
:GOTO300 
; :GOTO300 


PRINTUSING"ZZ2.22'"; ET*1E6; : PRINT" UV ''; 


NS= (4*KT*BW*1E3*RS)*0.5 


NF=20*LOG((ET/NS) ) /LOG(10) 


PRINTUSING" ##.#";NF;:PRINT" 


NEXTI 
PRINT" 


DB" 


INPUT"RTN'";A:IFA-OSOUND21,1:GOTO10 


independent of gain, bandwidth and sig- 
nal level. 


Low noise tips 


To optimise a design, the value of 
input resistance must be kept as low as 
possible. For an inverting stage, this is 
limited by the minimum acceptable 
input impedance. There is no such 
problem with the non-inverting stage, 
making it the preferred type for low 
noise stages. Most op amps will drive 
loads down to 1000 ohms or so, hence 
R1 plus R2 can equal this. The МЕ5534 
can drive loads down to 600 ohms. 

Don't worry about using expensive 
“low noise" resistors as these make no 
difference in an op amp stage where 
there is little or no DC across the resis- 
tors. Noise caused by a large voltage 
across a resistor is called excess noise 
and varies widely with resistor type. 


Using the program 
The formula for noise in the program 
appears in line 150. This sums all the 


noise sources involved using the pub- 
lished data for each op amp in turn and 


the result is quoted in microvolts. This 
data appears in lines 100 and 110 as 
EIN voltage and EIN current figures in 
volts and amps per Hz respectively. 
Line 320 computes the noise figure by 
dividing the result of line 150 by the 
noise of the source resistance and con- 
verting this to decibels. 

When return is pressed the program 
runs again so that you can enter new 
values. 

Due to device variations and the use 
of averaged values in the EIN data, the 
computed figures are not precise but are 
close enough to measured results to 
allow valid comparisons between circuits 
and op amps. 

The program was written for a VZ300 
computer but should work with little al- 
teration on almost any computer run- 
ning BASIC. 


References 
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Left: this program was written for the 
VZ300 computer but should work 
with little alteration on almost any 
computer running BASIC. The 
program runs each time return is 
pressed, so that you can enter new 
values.- 


Below: these sample screen printouts 
show the results for six common op 
amps for various circuit conditions. 
The program calculates both the 
equivalent input noise (in microvolts) 
and the noise performance (in dB). 


SAMPLE SC 


SOURCE RESISTANCE 
INPUT RESISTANCE 
NOISE BANDWIDTH ЕН2 


МЕ5534 
RC4558 


лон or с 


SOURCE RESISTANCE 


INPUT RESISTANCE 


NOISE BANDWIDTH KHZ 


NESS34 
КС4558 


TDR юе 


SOURCE RESISTANCE 


INPUT RESISTANCE 


NOISE BANDWIDTH KHZ 


МЕ5534 .93 


lo lo В bs le bo 


104 


ON YOUR MICRO 


DINGS AND 
CATORS 


By Greg Baker 


The LOCATOR program is a dual purpose program com- 
bining a QTH Locator program and a Great Circle program. 
The program demands as input either (a) the QTH Locator, or 
(b) the latitude and longitude of the target station. 

If the QTH Locator is provided as an input, the program 
calculates latitude and longitude of the centre of the locator 
square then the great circle bearing and path distances. If the 
latitude and longitude of the target station are input, the 
program calculates the QTH Locator square then the great 
circle bearings and path distances. 

The program has been written for and tested on an unex- 
panded Dick Smith VZ-200 computer. The entire program is 
written in BASIC and should be adaptable to most BASIC 
versions. 

QTH Locators 

QTH Locators are an alternative to the use of latitude and 
longitude for specifying the location of amateur radio stations 
around the world. For this purpose, the earth's surface is first 
divided into 18 x 18 — 324 fields, each 20 degrees wide in 
longitude and 10 degrees wide in latitude. 

Each of these fields is then divided into 10 x 10 = 100 
squares, each 2 degrees wide in longitude and 1 degree wide 
in latitude. These squares are further sub-divided into 24 x 24 
= 576 sub-squares of 5 minutes longitude by 2.5 minutes 
latitude. Figure 1 shows how these fields, squares and sub- 
squares are labeled. 

From these labels, a six-character QTH Locator is formed. 
Note that the two character field, square and sub-square 
labels are longitude first, latitude second, and are labeled 
consecutively from west to east for longitude апа south to 
north for latitude. 

The full six character locator has the form 114241425152 
where f1f2 is the alpha field locator, 4142 is the numeric 
square locator, and s1s2 is the alpha sub-square locator. For 
example, the author's QTH is at 35?24.4' South latitude by 
149°57.3' East longitude, which corresponds to а ОТН Loca- 
tor of ОҒ44ХО. 

It is not necessary to always use the six character QTH 
Locator. If a coarser grid with less accuracy is satisfactory, 
the first four character's can be used. For less accuracy again, 
use just the first two characters. Further details of the QTH 
Locator system can be found in Tony Gilbert's ‘Traffic’ col- 
umn, ARA Vol 7, No 8, Page 5. 

Great Circle Bearings And Distances 
Great Circle bearings are the true bearings for beam aim- 
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ing. Due to the curvature of the earth, bearings орай from 
standard (mercator projection) maps are not accuracte over 
more than a few degrees. Two bearings 180% apart аге usual- 
ly given — the short path bearing and the long path bearing. 
Similarly, there are two Great Circle distances — that for the 
short path and that for the long path. 

For more details on Great Circle bearings, see articles in 
ARA Vol 6, No 9, and ARA Vol 7, No 2, both available from 
ARA Reprints (Back Issues Department). 

Flowchart and Algorithms 

Unlike some other locator programs, the main calculations 

used here are neat and compact. The program incorporates 
„extensive error checking, which is good for the VZ-200 but 
* may not work on other systems. 

Because the calculations are complex, great care should 
be taken to type them is correctly. Statements to be particu- 
larly careful with are those in lines 390, 400, 510 and 520. 

The program flowchart is shown in Figure 2. 
Originating Station 

The program as it is written incorporates the latitude and 
longitude of Mount Ainslie, Canberra, as the location of the 
station from which the bearings are calculated. To function 
correctly from any other location, latitude and longitude for 
that QTH need to be inserted at lines 100 and 110 
respectively. 

Minutes of arc should be divided by 60 and added to the 
degrees. Seconds of arc should be divided by 3600 and 
added to the degree to give a decimalised latitude and longi- 
tude. Then the latitude and longitude should be give a sign — 
positive for north latitudes and east longitude; negative for 
south latitudes and west longitudes. 


ab ç. 2 Apr 81. 


Fig. 1 — How the ОТН Locator 
system is calculated. 


EXAMPLE : /5°28N 29° 13'W 
HAS QTH LOCATOR  HESSJIL 
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For example, а station at 33° 55 South Бу 151210” East 
has а decimalised letitude of -33 + 55/60 = -33.91667 апа 
longitude of +151 + 10/60 = +151.16667. 

Alternatively, because the program allows the origin to be 
changed while it is running — for use away from the normal 
ОТН for example — the user could type in their own QTH 
every time the program is run, although it would be easier to 
make the change permanent. Final output prints a new origin 
reminder message if this option has been exercised. 
Using The Program 

On running the program, the user is asked whether s/he 
wants to alter the latitude and longitude of their station. Enter 
'Y' to choose this option or any other character to bypass it. 
If 'Y' is selected, you will be asked to enter the new decima- 
lised latitude and longitude of origin. 

If а valid latitude and longitude is entered, the program 
proceeds. Otherwise an error message is displayed for a 
short period and the user is requested to re-enter the origin 
coordinates. 

Next, the program requests the target QTH name, fol- 
lowed by the option to enter the QTH Locator or the latitude 
and longitude of the location. The target name is truncated to 
22 characters after entry and further truncated to nine char- 
acters if the new origin option is chosen to allow room on the 
printout for the new origin reminder message. 

If the user chooses to enter a QTH Locator, a valid two, 
four or six character locator must be entered before the 
program will proceed to the Great Circle calculations which 
will use the latitude and longitude of the locator field, square 
or sub-square centre аз the target location. 

Similarly latitude and longitude, if entered, must be valid 
before the program will proceed. 

Once great circle bearings and distances are calculated, 
the program prints results and asks the user to enter another 
target. 

A few typical outputs are shown in photographs accompa- 
nying this article. 

Warnings 

The great circle section of the program produces errors if 
the target is within 5O kilometres of the origin station (when it 
wouldn't be usual to use a great circle program anyway), or if 
the target is close to either the north or south pole (although, 
again, it wouldn't be usual to use a great circle program to 
point your beam due north or south anyway). 

Note that ARA Vol 9, No 4, has an article on short range, 
beam headings for VHF апа UHF enthusiasts. 

Test Data 

Table 1 shows program output data for the origin station 
located at 35°16’ South, 149? East as incorporated іп pro- 
gram statements at lines 100 and 110. This test data shold 
be used to check the program before the data in lines 100 
and 110 is changed for your QTH. 

Copies of the program for VZ-200 can be obtained on 
cassette from the author for $7:00 post-paid. Write to Greg 
Baker, PO Box 93, Braidwood, NSW 2622. Comments and 
suggestions (with an SASE for reply) can be sent to the same 
address. 

Debugged disk copies of the program modified for Com- 
modore VIC-20, C-64 or С-128 can be obtained by 
sending $10 or a blank formatted disk and $5 (includes post- 
age) to High-Tech Media, 4 Renshaw St, Doncaster East 
3109 


Diagram 2. PlcwcLart 
10 Start 
i 
120 Alter Crigin? — Yes —e 1030 Enter new origin d 


Enter target — Yea ——— — lat/long valid? — No 
name 


a 170 
| 
200 Enter target —— Yes ---1050 Enter lat/long = 
T ones 


240 Enter STH Уа1142--------- No 


locator 
yes 
locator Valid? —=No 450 Form CTH 
lis : Locator 
36C Calculate lat/ 
long 
і ; 
860 Frint lat/long, 
Llocator 


590 Calculate Bearinge, 
Distances 


920 Frint bearings, 
distancee 


Yes —— 1000 another target? — No 


1270 кла 

Target: QTH Locator: Short Path: Short Path: 
Name True Bearing Distance 

` Latitude Longitude 

ds Buffalo FNO2MU 63°26' 15826 km 
42°52'N 78°55'W 

2. Hong Kong OL72CF 324°40' 7374 
22°15'N 114°15'Е 

3: Falklands GDO8FL 162537” 9963 
519305 59°30'W 

4. Auckland RF73JB 102°07' 2301 
36°55'S 174°47'5 


PROGRAM LISTING FOR VZ-200 
0010 REM PROGRAM "LOCATOR" 
0020 REM GREG BAKER, BRAIDWOOD, 2622 
0030 DIM C(6),CB(3),CM(3),CT(3),L(2,3),M(6),N$(2),S(2), 
T(2.2),TG(2) | 
0035 DIM F$(2),G$(2),H%(2) 
0040 DATA 65,82,10,48,57,1,65,88,0.04 1667 
0045 DATA “NORTH”, "EAST", SOUTH", WEST" 
0047 W$=""' 
0050 FOR 1=1 TO 3 
0060 READ CB(I),CT(I), CM(I) 
0070 NEXT I 
0072 FOR 1=1 ТО 2 
0074 READ F$/l),G$%(l) 
0076 NEXT I 
0080 REM ORIGIN STATION LAT/LONG 
0090 REM INSERT YOUR OWN QTH HERE 
0100 T(1,1)=-35.2667 
0110 Т(2,1)- 149.1667 
0120 CLS 
0122 PRINT'"ENTER 'Y' TO ALTER ORIGIN” 
0130 IF Ү$<>”Ү” THEN 170 
0140 PRINTQ192,"NEW ORIGIN LAT/LONG" 
0145 C$ 2'' ЖМЕУУ ORIGIN» ' 
0150 K=1 


INPUT Y$ 


a án M e Vs. 
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0160 60508 1030 | t 
0170 CLS ; 

0175 PRINT"TARGET МАМЕ” 1МРОТ TS 
0180 T$=LEFTS(T$,22) 

0190 FL=0 

0200 РАМТ@64,''ЕМТЕВ: '1' FOR TARGET ОТН 
LOCATOR" 

0210 INPUT '2: FOR TARGET LAT/LONG"; Y 
0220 it Y -2 THEN 420 

0230 IF Y=1 THEN 240 

0235 РАМТ@ 152," '':GOTO 200 

0240 PRINTG 192, LOCATOR" ;:INPUT Q$ 
0250 FL=1 

0260 X=LEN(Q$) 

0270 IF X=2 OR X=4 OR X=6 THEN 290 
0280 РНІМТ2 201,7 ":GOTO 240 

0290 FOR I- 1 TO 6 

0300 С()-0: NEXT | 

0310 FOR J= 1 TO X 

0320 C(J) - ASCIMIDS(OS, J, 1)) 

0330 JJ- INT((J + 1)/2) 

0340 REM TEST VALIDITY OF LOCATOR 
0350 IF C(J)<CB(JJ) OR C(J)>CT(JJ) THEN 280 
0360 C(Jj - C(J)- CB(JJ) 

0370 NEXT J 

0380 REM CALCULATE LATITUDE /LONGITUDE 
0390 T(1,2)-- 

90-4 C(2)X 104 C(4) + C(6)/24 - CM(X/2)/2 
0400 T(2,2) -- 

1804 C(1)X 204 C(3)k 2 * C(5)/ 12 c CM(X/2) 
0401 FOR 1-1 TO 2 

0402 IF T(,2) «0 THEN Н%()-2 ELSE Н%()-1 
0403 Н9%(І)= 1 

0404 Т-АВ5(Т(,2)) 

0405 Lil, 1) =INT(T) 

0406 L(I,3 ^(T-L(l, 1) 60 

0407 1(1,2) =INT(L(I,3)) 

0408 1(1,3) 2 INT((L(I,3)-L(I,2)) Ж60--0.5) 
0409 NEXT I 

0410 GOTO 585 

0420 PRINT& 192, TARGET LAT/LONG" 
0430 К-2 0440 GOSUB 1030 

0450 REM FORM TARGET LOCATOR 


& Кы $. 


эд? 


0460 FOR J=1 ТО 2 

0470 TG(J) 2 T(J,2) - 90X J 

0490 IF TG(J)= 180%Ј THEN TG(J)= TG(Jj-0.0001 
0500 FOR K=3 TO 7 STEP 2 

0510 MIK-J) 2 INT(TG(J)/(JK CM((K- 1)/2)]) 
0520 Тс()-ТС())-М(К-Лж./жСм((К-1)/2) 
0530 NEXT K 

0540 NEXT J 

0550 Q$=""" 

0560 FOR 1= 1 TO 6 

0570 Q$= QS + CHRSIMII) + CB(INT((I + 1)/2))) 
0580 NEXT | 

0585 GOSUB 860 

0590 REM CALCULATE BEARING AND DISTANCE 
0600 P=T(2,1)-T(2,2) 

0610 PS=1 

0620 IF P<0 THEN PS=0 

0630 P= ABSIP) 

0640 PM=0 

0650 IF P>180 THEN PM=1 

0660 E=57.29578 

0870 PI=3 141592654 

0680 P=P/E 

0690 PA=(90-T(1,1))/E 

0700 РВ-(90-Т(1,2))/Е 

0710 22= COS(P) ж SIN(PA) ж SIN(PB) + COS(P A) COS(PB) 
0720 GOSUB 1250 

0730 AB- AC 

0740 SK=INT(6366.707* AB 4 O.5) 

0750 LK 2 40000-SK 

0760 22 = (СО$(РВ)- 

COS{PA) ж COS(AB})/(SIN(PA) Ж SIN(AB)) 
0770 GOSUB 1250 

0780 A- ACXE 

0790 A= ABS(360*(PS-PM)?-A) 

0800 A1=INT(A) 

0810 А2-ІМТ(А-А1)ж60--0.5) 

0820 В= 180+ А 

0830 IF B> =360 ТНЕМ В-В-360 

0840 Ві-імтТ(8) 

0850 В2 -ІМТ((В-В1)ж60--0.5) 

0855 GOTO 920 

O860 REM PRINT RESULTS 
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0870 CLS 

0880 РНІМТ"ТАНСЕТ: "T$ 

0885 IF LEN(C$)>0 THEN PRINT@17,C$ 

08 90 PRINT @64,''LAT: 

EE DEI 2 МЕЗ) sS 7 s 

0895 PRINT@86,F$(H%(1)) 

O900PRINT 

$96, LONG: ;L(2, 1; D ;L(2,2); M” ;L(2,3) "S "*; 
0905 PRINT@118,G$(H%(2)) 

0910 PRINT'"LOCATOR ",0% 

0915 RETURN 

0920 PRINTQ224,' SHORT PATH: 

BEARING ;A1;"7D';A2; "M" 

0930 PRINT” DISTANCE ;SK;" KMS" : 
0940 PRINT'"LONG PATH: BEARING ;B1;"D';B2;'M" 
0950 PRINT” DISTANCE ДК; KMS" 

0960 IF Ғі--О THEN 1000 

0970 PRINT'"LAT,LONG, BEARINGS AND DISTANCES 
ONLY” 

0980 PRINT’ APPROXIMATE BECAUSE LAT AND 
LONG" 

0990 PRINT'"CALCULATED FROM LOCATOR" 

1000 PRINTQ480O," ENTER 'Y' FOR ANOTHER 
ТАНСЕТ”;ІМРОТ Y$ 

1010 IF Y$—"'Y'" THEN 170 

1020 GOTO 1270 

1030 REM INPUT LATITUDE/LONGITUDE 

1035 $(1)=0: 5(2)-б 

1040 РАМТ@224, LATITUDE? DEGS" ';:INPUT L(1,1) 
1041 INPUT” MINS'';L(1,2) 

1042 ІМРОТ” SECS';L(1,3) 

1043 INPUT'' N/S ";М%(1) 

1050 IF М%(1)<>”М” THEN 1070 

1060 S(1)7 1: GOTO 1080 


€ fs. 


1070 IF М%(1)- "S" THEN S(1)=-1 

1080 INPUT"LONGITUDE? DEGS" ';L(2,1) 
1081 INPUT” MINS” 112,2) 

1082 INPUT” 6ЕС5” (2,3) 

1083 INPUT” E/W “;М%(2) 

1090 IF N$(2)<>"'E’’ THEN 1110 

1100 S(2)=1: GOTO 1120 

1110 IF N$(2)=""W"" THEN S(2)=-1 

1120 FOR 1= 1 ТО 2 

1130 IF 5(1) 2 O THEN 1160 

1132 Н%(1) = 1 | 

1134 IF 5(1) <0 THEN Н%()=2 

1140 T=90+ (I- 1)* 90 

1150 IF L(I,1)2 =0 AND L(I,1) <=Т THEN 1180 
1160 PRINT ERROR: L, 1); D" ;L(L2); "M ;L(,3);""S 
“INS (I) 

1170 PRINT "TRY AGAIN" 

1172 FOR V=1 TO 1500 

1174 NEXT V 

1175 PRINT@224,W$ 

1176 FOR V=1 TO 7: 

1177 PRINT W$ 

1178 NEXT V 

1179 GOTO 1030 

1180 FOR J=2 TO 3 

1190 IF L(I,J) O ORL(I,J)2- 60 THEN 1160 
1200 NEXT J 

1210 T(LK) =Lil, 1) +L(1,2)/60 +L(1,3)/3600 
1220 T(I,K) =Т(1,К)-ж5(1) 

1230 NEXT I 

1240 RETURN 

1250 AC—-ATNI(ZZ/SQR(1-ZZ*Z2Z)) +РІ/2 
1260 RETURN 

1270 ЕМО 
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Towards а VZ-Epson printer 


paich 


Larry Taylor 


Part 1 


Fed up with your clackerty old printer and long for an upgrade to 
one of the popular Epson or Epson-type dot matrix printers? 
Compatibility with the VZ has always been а problem - until now. 


FED UP with your clackerty GP-100, and its less than per- 
fect print quality? Do you long to upgrade, but know that 
whatever you choose, it won’t be totally friendly towards your 
VZ? 

Are you the owner of an Epson-type printer, but suffer frus- 
tration, as I did, at its lack of compatability? If so, then take 
heart, there is hope. The answer is a printer patch, that is, 
a program specifically written to take the place of the exist- 
ing ROM routines. In this case, the aim is to make the VZ 
fully compatible with Epson-type printers. Recently, after- 
many hours spent reading and experimenting, I succeeded 
in producing just such a program. 

Having first decided to take the plunge and purchase a VZ 
computer, I developed a very great need, some short time 
later, to be able to obtain a printout of my programming ef- 
forts. On close examination of available finances, I was left 
with a choice between the Seikosha GP-100, a slow, noisy 
machine featuring an unattractive print style, and the BMC 
BX-80, a noticeably quieter, faster printer, possessing sever- 
al attractive fonts. 

Although a seemingly easy decision, I was immediately 
faced with a dilemma. The former, whilst initially unattrac- 
tive, especially so to anyone with sensitive hearing, had two 
very desirable features: namely, the ability to print the VZ’s 
inverse and graphics characters, in addition to providing, 
via the COPY command, a dump of the HI-RES screen. These 
two factors very nearly persuaded me to choose the GP-100, 
but, after much deliberation, I opted for the superior print 
quality of the BX-80. In so-doing, I resigned myself to hav- 
ing to go without the former's obvious advantages. 

No one had at this stage even remotely hinted that I could 
have the best of both worlds by means of a software patch. 
Hindered by a lack of information and minimal understand- 
ing of computer and printer operations, I perservered with 
the rather primitive approach of removing all inverse and 
graphics characters from programs before doing a printout. 


A star 


Desperate to overcome this huge waste of time, I first began 
to deal with the problem of printing graphics characters. I 
realised that my printer was capable of dot graphicsand that 
it should be able, whilst in this mode, to reproduce the shapes 
I desired. My early efforts, however, ended in frustration as 
the VZ steadfastly refused to interpret my data correctly. Only 
when I discovered that I could send the data directly out the 
ports, thus bypassing the VZ's printer driver routine, did I 
achieve any success. 

Listing 1 gives an example of how this was accomplished. 
By referring to the table below, you may change the graph- 
ics block data in the listing to enable any of the other graph- 
ics charactrs to be printed. Later it will become clearer how 
the data to print each block was calculated. 
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GRAPHIC BLOCK DATA 


HEX IDECIMAL 


DECIMAL 


128 
1297 
150 
151 
152 
155 
154 
135 
136 
137 
138 
139 
140 
141 
142 
143 


Being an avid user of Steve Olney’s Extended Basic, I used 
my new-found knowledge to write an assembly routine, 
which linked into the listing routine of his program. It sim- 
ply checked for graphics and inverse characters. Graphics 
characters were printed and inverse ones changed to non- 
inverse. Useful, but not totally satisfactory. On the way I had 
independently developed my own table of data (above), to 
print the graphics blocks, only to later discover that there 
exists in the VZ's ROM a set of data for graphics characters 
and another for inverse. 

The graphics table occupies addresses from 02AFH to 
02CEH, whilst the inverse data commences at 3B94H and 
ends at 3CD3H. The graphics shapes are stored in two-byte 
form and the inverse characters in five-byte blocks, Their ex- 
istence makes it a simple enough matter to expand on the 
program in Listing 1 and print the graphics blocks using the 
ROM data instead of our own, as in Listing 2. The same may 
be done with the inverse characters and Listing 3shows how 
this is accomplished. Unfortunately, you will notice that the 
resultant characters, when printed, are in fact upside down. 
To understand why this occurs, it is necessary to offer a brief 
explanation of the differences between the code values used 
to control firing of the pins in the printheads of Epson-type 
printers, and those of the GP-100 family. 


1543 


Тһе Epson-type printer 


Printers of the Epson-type have eight addressable pins, while 
the GP-100 has the equivalent of seven pins only. In addi- 
tion, the value 1, which fires the bottom pin on an Epson 
printer, actually triggers the top pin on the GP-100. The dia- 
gram below illustrates the differences. 


COMPARISON ОҒ 
ZIN CODE č VALLES 


GP-100 EPSON 
1 n 128 [| 
2 ы 64 | Ей 
4 м 52% № 
8 | Г | 16 m 
16 | m 8 ш 
52 | Б | 4 m | 
64 ЕН 2 wa 
ы ir 
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То calculate the code which is required to produce а раг- 
ticular dot pattern we simply have to add up the values of 
the corresponding pins. The representation of the sraphics 
block, CHR5(137), can be used to demonstrate how this is 
done. You may recall that the data values used in Listing 1 
to reproduce this particular character were 240 and 15. No- 
tice how these codes correspond to the totals at the base of 
each column іп the diagram. If we examine the first column 
on the left, we can see that only the top four pins have been 
fired. By totalling vertically the values assigned to those pins, 
we arrive at the sum of 240. The same procedure is used to 
determine the Epson compatible code foreach of the remain- 
ing columns. 


SRA A Tes BLOCK qm 
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It can be done 


Nevertheless, data which has been prepared primarily for 
the GP-100, as is the case with the ROM tables, will produce 
inverted images if sent to an Epson printer. It is necessary, 
threfore, to convert the data before it can be used. Adding 
Listing 4 to Listing 3 will produce the desired result. I 
wouldn't however, advise any of you to hold your breath 
whilst waiting for the data to be printed. Hence, I have 
provided Listing 5, an assembler program, which effects the 
same result, only much more swiftly. 

Having now managed to make the characters appear in 
their more conventional form, a closer examination ofthem 
will reveal numerous inaccuracies. Some, such as the 3 and 
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5, are more noticeable than others, but no less than a dozen 
of the characters are flawed. After progressing so far, this 
is a disappointing development but one which will prove, 
later, to be not insurmountable. In the interim, we need to 
explore further how we might utilise our somewhat imper- 
fect data. 

Fortunately, the designers of the ROM foresaw the possi- 
bility that potential users may want to use a different printer. 
As a result, a vector has been used to point to the location 
of the printer driver. All output to the printer is directed via 
a driver routine, which, among other things, checks for con- 
trol codes and keeps track of line feeds. In the VZ, a block 
of the communications area of RAM from 7825H to 782CH 
has been set aside for printer operations, allowing temporary 
storage of values such as the number of lines printed. Of 
greatest interest to us is the contents of 7826H-7827H. This 
is the start of the driver routine, and the cause of our 


problems, because it is geared to expect that owners of VZeds 


will be using GP-100 type printers. However, since the previ- 
ous address lies in RAM, it is possible to insert a pointer to 
our own driver routine at this location. Once accomplished, 
all future LPRINT and LLIST commands will be directed, 
ultimately, to our own printer routine. 

We have now proceeded part way to installing a valuable 
routine for owners of Epson-type printers, but we are still 
unable to make use of the COPY command. The primary ad- 
vantage of which is that it allows a dump of the HI-RES 
screen to be made to the printer. Implementing this very 
desirable feature will prove to be somewhat more 
challenging. 


LISTING 1 PRINT A SINGLE GRAPHICS BLOCK 
100 REM ##HHFHAAHHHH HAAR RRR RRA ARR RA EH 
101 REM # PUT PRINTER IN GRAPHICS MODE в 
102 КЕМ ВввВНВВНННННВВВВННННННВНННННННВВВННИН 
110 _РРІМТСНРФ (27); CHR$ (75) ; 

120 FOR T=1 TO 2 

130 READ D:GOSUB 510 

140 NEXT Т 

200 REM "HH HARE A RAR RRR 
205 REM # READ EACH DATA VALUE IN TURN # 
210 REM # AND THEN PRINT IT FOUR TIMES # 
215 REM HHHHHHHHHHHHHHHHHHHHHHHHHHMEHEHHHHHHEHM 
220 FOR NZ=1 TO 2 

230 READ D 

240 GOSUB 510:GOSUB 510 

250 GOSUB 510:GOSUB 510 

400 NEXT NX 

410 LPRINT: END 

500 REM HHHHHHHHHHHHHHHHHHHHHHEHHHHHHHHHEEUAEHAM 
501 REM # OUTPUT TO PRINTER VIA THE PORTS 8 


502 REM sHHHHHHHHHHHHHHHHHHEHHHHEHEHHHHHEHHNuH Hd 
510 IF INP(0)<>254 THEN GOTOS10 

520 OUT 13,D:0UT 14,0 

550 RETURN 

540 REM BHHHHHHHHHHHHHHHHHHHHHHEHEHHHHHEHHUHHHM 
S45 REM * NUMBER OF BYTES TO BE PRINTED # 
SSO REM # IN LOW BYTE, HIGH BYTE FORM # 
555 REM RRRRRRRRRRRRRRRRRRRRRRRRRRRRRHHRHHRHRE 
560 DATA 8,0 

565 REM RRRRRRRRRRRRRRRRRRRRHRRRRRRRRRRRRHRE 
570 REM # GRAPHIC BLOCK DATA # 
575 REM sSHHHHHHHHHHHHHHHHHHHHEHEHEHHHHHEHUNugE UH 


580 DATA 240,15 


LISTING 2 : PRINT THE ROM GRAPHICS BLOCKS 


100 
101 

102 
110 
120 
130 
140 
150 
151 

152 


REM HHHHHHHHHHHHHHHHHHHHHHEHHHHEHEHUHNNH HH 
REM # PUT PRINTER IN GRAPHICS MODE в 
REM ННИВННННННИНННИНИНИННЕ RR RRR RRR Re HH 
LPRINTCHRS (27) ; СНЕФ (75) ; 
FOR Т=1 ТО 2 

READ D:GOSUB 510 
NEXT T 
REM HHHHHHEHHEHHHHHHEHNEHHHHEHHEHHHEHHHEHHEE a ЯВ 
REM # LOCATION GRAPHICS TABLE O2CEH # 
REM вввнввнвИвИНВННВННВНВВНВННИНИННВИННИНЯВ 
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P 


160 M=687 
200 REM ###HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HH 
205 REM # READ DATA FOR GRAPHICS BLOCKS # 
210 REM # AND PRINT EACH VALUE 4 TIMES # 


215 REM ЯЯЯННЯННЯНННЯЯННННЯННННННННННННННННЯНН 
220 FOR NZ=1 TO 32 

230 D=PEEK(M)-128 :M=M+1 

240 GOSUB 510:GOSUB 510 

250 GOSUB 510:GOSUB 510 

260 REM #ЯЯНЯНННЯННННЯННННННННННННННЯНННЯННЯН 
265 REM # THIS LINE SEPARATES CHARACTERS # 
270 REM # FROM EACH OTHER BY A DOT WIDTH # 
275 REM HHHHHHHHHHHHHHHHHHHHEHHHHEHHHHHHHHHHMHH 
280 IF N4/2 = INT(N4/2) THEN р=0 :GOSUB 510 
400 NEXT МУ 

410 LPRINT: END 

500 REM #ЯЯЯЯННННННННННННННННННННЯННННЯННИНННННЯН 
501 REM # OUTPUT TO PRINTER VIA PORTS # 
502 REM #H#H#H HHH HH HH HH HH HF HH HH HH OHH 
510 IF INP(0)<>254 THEN GOTOS10 

520 OUT 13,D:0UT 14,0 


550 RETURN 

540 REM #Н#Я#ННННННННННЯННИННЕЯННННННИННИННИНННИНН 
545 REM # NUMBER OF BYTES TO BE PRINTED # 
SSO REM # IN LOW BYTE, HIGH BYTE FORM # 


555 REM ##H#HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HH 
560 DATA 144,0 


LISTING 3 : PRINT THE ROM INVERSE CHARACTERS 
100 REM #Н##ЯННЯННННННЯННЯННЯННИННННННИ НН 
101 REM # PUT PRINTER IN GRAPHICS MODE # 
102 REM ###HHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHH 
110 LPRINTCHRS (27) ;CHR$ (75) ; 

120 FOR T=1 TO 2 

130 READ D:GOSUB 510 

140 NEXT T 

150 REM ###HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHH 
151 REM # LOCATION OF INVERSE TABLE 3B94H s 
152 REM #Н#Н#Н#Н#ННЕЯНЯНННЯНЯННННЯНННННННЯНННННННННННЯН 
160 М=15252 

200 REM ##H#HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH HHH 
201 REM # NUMBER ОҒ INVERSE CHARACTERS # 
202 REM #Н#Н#Н#НННННННННННННЕННННЕННННЕННННЕННННННН 
210 FOR №/=1 TO 64 


220 D=255:GOSUB 510 
250 REM ###H HH HHH HH HH HHH HHH HH OH НН НН 
231 REM # NUMBER OF BYTES PER CHARACTER # 


252 REM #H#HH HHH HHH HHH HHH HH AHHH 
240 FOR R%=1 TO 5 


250 О=РЕЕК (М) : М=М+ 1 

559 REM HHHHHHHHtti iii HH HHHHHHHHHHHHHEHE HE HHM 
540 REM # PRINT ONE COLUMN 8 
541 REM HHHHHHHHHHHHHHHHHHHHHHHHEHHHHEHEHHHHE HUM 
350 GOSUB $10 

360 NEXT 

370 D=255:GOSUB 510 


400 NEXT NX 

410 LPRINT: END 

500 REM яяяНЯННЯННННННННННННННННННННННННЯННН 
501 REM # OUTPUT TO PRINTER VIA THE PORTS # 
502 REM HHUHHHHHHHHHHE HH HH HH HAH ЕЕЕ 
510 IF ІМР(0)<>254 THEN GOTOS10 

520 OUT 13,D:0UT 14,0 


S30 RETURN 

555 КЕМ ##HHHH HH HH HH HH HH FH OHH AHO 
540 REM # NUMBER OF BYTES TO BE PRINTED # 
SSO REM # IN LOW BYTE, HIGH BYTE FORM # 


SSS REM ## HHH AHHH HH HH HH HH HH 
560 DATA 192,1 


LISTING 4 : CONVERT THE DATA FOR THE EPSON PRINTER 
260 REM ##H HHH HHH HH HHH HH FH OHH OO 
261 REM # CHANGE CODE FROM GP-100 TO EPSON # 
262 REM HHHHHH HHH HHH HHH HH HH HHO OOOH 


270 IF D=189 OR D=255 THEN 320 
280 У=О:Е=О 

290 FOR F%=7 ТО О STEP -1 

500 P=2°F%: IF D<P THEN 320 

310 E=E+2*V: р=р-Р 

320 V=V+1 

550 NEXT:D=E 
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LISTING 5 : PRINT THE ROM INVERSE CHARACTERS. 
0001 ILLLLLLLLLLLLEZLELLLLII 
0002 ;# РОТ PRINTER IN # 
0005 ;# GRAPHICS MODE # 
0004 ILLLLLLZLLLLLELLLZLLLII 
0005 ID MA 27 

0006 CALL 3ABAH 

0007 ЕВ. A475 

0008 CALL 3ABAH 

0009 LD А,192 

0010 CALL 3ABAH 

0011 CD. “AS 

0012 CALL 3ABAH 


0015 ; HHHHHHHH HHH HH HH HH HHH 
0014 ;# LOCATION OF THE # 
0015 ;# INVERSE TABLE # 
0016 ;HHHHHHHHHHHHHHHHHHHMH 
0017 LD | HL,3B94H 

0018 ; #HHHHHHHHHHH HHH HHH HH 
0019 ;# NUMBER OF INVERSE# 


0020 ;s CHARACTERS # 
0021 ; H#HHHHHHHHHH HHH HHH HHH 
0022 LD  B,64 

0023 NEXT PUSH BC 

0024 LD  /A,285 

0025 CALL 3ABAH 


0026 ; HHHHHHHHHHH HHH HHH HHH 
0027 ;# NUMBER OF BYTES Яя 


0028 ;# PER CHARACTER # 
0029 ; HHHHHHHAHHHHHHH HHS HHH 
0030 LD B,S 

0031 PRNT LD A, (HL) 

0032 CALL CVRT 

0055 CALL ЗАВАН 

0034 INC HL 

0035 DINZ PRNT 

0056 LD А,255 

0037 CALL ЗАВАН 

0038 РОР BC 

0039 DINZ NEXT 

0040 RET 

0041 ; H#HHHHHHHHH AHH HHH HHH 


0042 ;# CHANGE CODE FROM # 
0045 ;# GP-100 TO EPSON t 
0044 ; HHHHHHHHAA AHHH AHHH 
0045 СУЕТ PUSH ВС 


0046 LD B,8 

0047 ROTA RR A 

0048 RL C 

0049 DJNZ ROTA 

0050 LD A.C 

005: РОР ВС 

0052 БЕТ A. 

— from page 30 


chromium to resist corrosion) and a solid "beta alumina' 
electrolyte separates anode and cathode. The cell is sealed 
and filled with argon. 

During discharge, sodium ions pass through the electrolyte 
from anode to cathode, forming sodium sulphide at the 
cathode, the reaction generating the current. Recharging is 
achieved as with other storage batteries, by passing a current 
through it in reverse. One problem, though. These cells will 
only deliver power when operated above 270 degrees Celsius. 
They have an operating temperature ceiling of 410 degrees C. 
They must be heated to ‘start up' and to maintain them within 
the operatingtemperature range, they have to befully charged 
and then atleast 8096 discharged each day. If unused for nine 
hours, temperature falls below the 270 degrees C. 

Sodium-sulphur cells exhibit a terminal voltage of around 
2 V and may last some five years or 6000 charge-discharge 
cycles, which betters the typical lead-acid battery life cycle. 
In addition, its terminal voltage remains constant until it 
reaches about 7096 of its discharge capacity before tapering 
off. 

Suggested application encompass commercial vehicles 
such as delivery vans and buses, and military submarines. 
Satellite applications are also suggested as sodiurn-sulphur 
cells are only 2096 of the weight of equivalent NiCa d batteries 
of the same Ah output. 4. ў 
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А VZ-Epson printer patch 
— the search continues rao 


Рап 2 


IN THE PREVIOUS instalment, printing of the VZ's inverse 
and graphics characters had been made possible. At this 
point, the ideal enhancement to our printer patch would be 
to enable the VZ’s COPY command to function correctly 
when matched with an EPSON type printer. This should be 
possible, but we must first examine why the usual means for 
intercepting BASIC key words, during programme execution, 
won't work in the case of the COPY command. 

The VZ’s ROM owes much to that used in the earlier 
TRS-80 computers. The COPY routine, however, is one of 
a number of additions which greatly enhance the VZ’s capa- 
bilities. As such, it contains none of the DOS exits, which 
are to be found in the older sections of the ROM. These ex- 
its, or ‘vectors’’, are calls to an area in the communications 
area of RAM, and provide the means by which some BASIC 
commands may be altered or redirected. Since the VZ DOS 
makes no use of these vectors, none have been provided in 
the newer sections of the ROM. My initial hopes dashed, I 
began to investigate the method used to integrate the DOS 
into the VZ's operating system. In doing so, I uncovered an 
alternative vector, one which would make it possible for us 
to notonly intercept the COPY command, but also open the 
door to further enhancements to the VZ's BASIC. 


How so? 


It is important to understand, initially, why this type of 
modification is possible. When we write a BASIC 
programme, we are creating what we hope will be a precise 
set of instructions. Unfortunately, before the computer can 
understand and respond to our commands, each instruction 
in turn has to be painstakingly translated or intrpreted. This 
is the reason for BASIC's slowness, and it can really only 
be effectively overcome by having the programme translat- 
ed or compiled prior to execution. Yet, because a BASIC 
programme is interpreted as it runs, it is possible that addi- 
tional commands may be added to the language, provided 
they are intercepted and executed prior to reaching the VZ's 
own interpreter. This is precisely what happens when a disk 
operating system is added. New commands enabling disk 
operations to be performed; supplementing the existing BAS- 
IC. In the case of the COPY command, we are seeking to 
redirect it to a routine compatible with EPSON type printers, 
and on completion, have it return asthough all had proceeded 
normally. 

As I undertook to produce this extension to the patch, I 
found myself venturing much further than I had originally 
intended. The project involved modifying the existing ROM 
routine, as well as enhancing the COPY command to pro- 
vide for a second screen dump routine of my own design. 
Furthermore, I allowed for a copy of the LO-RES screen 
without the usual linefeeds. I also sought to eliminate those 
unfortunate flaws in the inverse character data. Listing 1, 
which was kindly supplied by Bob Kitch, enables a closer 
examination of the inverse characters held in ROM, by dis- 
playing them on the HIRES screen. By relocating the ROM 
table to RAM at the top of memory the necessary modifica- 
tions to the data have been made possible. 
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-VZ-ROM, INVERSE CHARACTER SHAPE TABLE 


VZ ROM, PRINTER PATCH MODIFIED TABLE 


(note changes to underlined characters) 


The accompanying illustration allows a comparison to be 
made between the ROM characters, at top, and those in the 
shape table addressed by the printer patch. Incidentally, 
should you decide that you still don't like the look of the 
amended characters, it is possible, using the same approach, 
to either further refine them, or even custom design a com- 
pletely new set. 

Inspired at having overcome this obstacle, and because I 
have written a number of programs using an Extended BAS- 
IC, I wanted the routine to be able to list those commands, 
which would not normally be recognised. The fina] aim was 
to deal with the printer's unimpressive performance, sig- 
nalled by a dramatic decrease in speed, each time it had to 
print a graphics or inverse character. The solution I chose 
to minimise these delays was to feed the data into a section 
of RAM, which would act as a collection area or buffer, pri- 
or to printing. A discussion in detail of how each of these 
refinements was implemented would only serve to compli- 
cate what is otherwise a relatively straightforward procedure. 
I have elected, instead, to demonstrate how to inter cept and 
enhance an existing keyword on a smaller scale Dy using 
another of the VZ's commands. 


t з 


Enhanced CLS 


Tandy’s Colour Computer has an enhanced CLS command 
which enables the user to clear the screen to any one of nine 
background colours. The syntax is CLSn, where n may be 
a number in the range 0-8. To illustrate how enhancements 
to the existing language can be accomplished, this command 
will be necessary to examine further how the VZ operates. 

When a BASIC program is RUN, control passes to a 
machine language ROM routine, the Execution Driver at 
1D5AH, which scans each line of the BASIC programme as 
it comes to it and begins to translate it. Part of the transla- 
tion process involves looking for tokens. These are values 
in the range 128-250 (80H-FAH) that take the place of BAS- 
IC reserved words e.g: CLS = 132 (84H). Once the word has 
been identified and checked for correct syntax, control is 
passed to the corresponding ROM routine before returning 
to continue the translation. 

On power-up, the address of the routine which examines 
each byte in a line of BASIC, is stored at 7804H. This is the 
vector hinted at earlier, and in a non-disk VZ it will normal- 
ly contain a pointer to the RST 10H routine at 1D78H. Be- 
cause this vector is in RAM it can be easily changed. This 
was done so that at a later stage the DOS could be included. 

At least three different versions of the VZ DOS could be 
included that I am aware of, and two of these display the 
same version number on power up. Consequently, the only 
fixed location common to all three versions is a jump table 
commencing at 4005H. This makes it difficult to refer to an 
actual address within the DOS, where command processing 
is carried out. However, since all processing must be chan- 
nelled via the above-mentioned vector, a peek at this address 
will uncover the whereabouts of the DOS interpreter. A close 
examination of this region of the DOS will reveal how the 
added disk commandsare interpreted and implemented. This 
information will enable us to introduce into the system an 
enhanced command of our own choosing. The trick is to en- 
sure that, as far a the VZ's interpreter is concerned, nothing 
unusual has happened. 

Theaccompanying assembly language programme in List- 
ing 2, with its associated comments, shows in greater detail 
how this is accomplished. If you do not have access to an 
Editor Assembler, Listing 3 is a BASIC version, which pokes 
the routine into memory. Having adjusted the top of memory 
pointer, the address at 7804H is stored and replaced by our 
own. The programme then locates the new routine at the top 
of the memory. Now each time a byte is to be examined dur- 
ing execution it must first pass through our checkpoint. Once 
the origin of the call is established, the routine looks for the 
CLS token, 132 (84H). 

Only when it has been located does the routine proceed 
to examine the next byte. This is checked to see if it lies in 
the range 0-9. Once it has passed this test, the clear screen 
routine is implemented, after first calculating the appropri- 
ate value, with which to fill the screen. You will notice that 
not only is it necessary to check for the new command, but 
also to provide the routine which implements it. In this case 
a simple block load to the screen has been used. Control is 
then returned to the ROM processing routine, which prepares 
to examine the byte following ournew command. So, as far 
as the VZ knows, everything is continuing normally. Tricky 
isn't it? 

The VZ will now respond to the CLSn command, when en- 
tered, either directly from the keyboard, or from within a pro- 
gram, with one exception. For some unexplained reason, 
during IF-THEN-ELSE processing the ROM accesses the byte 
examine routine at 1D78H directly, instead of via a RST 10H 
call. This means there is no efficient method for our 
programme to intercept the new command, when it is used 
in an IF-THEN-ELSE statement. The problem can best be 
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LISTING 


%%%%%%..в.шееееееагегеевеегеееегеегеее 
... DISPLAY INVERSE CHARACTER ... 
+++ SET IN КОМ ... 
... AS USED BY DOT MATRIX ... 
... PRINTER ... 
... R. В. KITCH 27/1/86 ... 


222222222222222222222222225222222221 


“WHEN INVERSE CHARACTERS ARE SENT TO A DOT MATRIX PRINTER 
'THE PRINTER SHIFTS TO GRAPHICS MODE AND REGUIRES А ROUTINE 
'TO SUPPLY THE APPROPRIATE SHAPES TO THE HEAD. (NORMAL 
"CHARACTERS ARE HELD ІМ THE PRINTERS ROM) 

“IN THE VZ COMPUTER A TABLE OF SHAPES iS LOCATED АТ 

'SB94H TO 3CD3 IN ROM. THERE ARE 64 CHARACTERS, EACH USING 
“5 BYTES TO DEFINE THEIR GRAPHIC SHAPE. THE SHAPES MAY BE 
“DECODED AND OUTPUT TO THE SCREEN AS 15 DONE IN THIS 
“PROGRAM. NOTE THAT THERE ARE SOME ERRORS IN THE ROM. 

'THE,S BYTES DEFINE А 5 BY В DOT MATRIX WHICH IS THE SHAPE 
“ОЕ THE CHARACTER, WHICH INCIDENTALLY ARE NOT ORDERED 
“ACCORDING TO THE ASCII CODE. 

'THE FIRST BYTE DEFINES THE LEFT HAND EDGE OF THE CHARACTER- 
“WHICH IS THE FIRST PRINTED DURING A PASS OF THE PRINTER 
“HEAD. IN TANDY PRINTERS THE MSB IS THE LOWERMOST PIN OF THE 
‘HEAD AND THE LSB IS THE UPPERMOST PIN. THE PINS ON EPSON 
“PRINTER HEADS ARE ARRANGED IN THE OPPOSITE SENSE. THIS 
“REQUIRES THAT THE BITS IN EACH BYTE BE REVERSED. 


222222222222222222422222222222222222222222222222222222222224 


DIM MKZ(7) : ***VECTOR OF BIT MASK VALUES - POWERS OF 2 
DIM BTZ(7) 


:/7***VECTOR OF DECODED BITS FROM ROM VALUE. 


'***FILL MASK VECTOR WITH POWERS OF 2 FOR DECODING. 
FOR 1420 TO 7 :MK%(1%)=271% :NEXT 1% 


'"***INITIALIZE PARAMETERS ~ MAY BE CHANGED TO VARY SCREEN. 
PO ***CHARACTER. COLOUR. (1-4) 
3: '#**BACKGROUND COLOUR. (1-4) 
zs '***COLOUR SET. (0-1) 
3° *#eCOLUMN WIDTH BETWEEN CHARACTERS. 
:'**«ROW SPACING FOR CHARACTERS. 
$7 ***STARTING HORIZONTAL POSITION ON HI-RES SCREEN. 
'"** «STARTING VERTICAL POSITION ON HI-RES SCREEN. 
HM%=127 :'**««MAXIMUM HORIZONTAL POSITION. (0-127) 
"***SET UP MAIN LOOP TO STEP THROUGH ROM FROM 3B94H-3CD3. 
BK*-0 27 «е«ВҮТЕ COUNTER FOR EACH CHARACTER. 
HP HS 1 '**#SET HORIZONTAL POSITION TO START 
MODE(1) :COLOR,CS% 1'***SET HI-RES SCREEN AND COLOR SET. 
$m*215252 :$'***START OF SHAPE TABLE 
—Em%=15571 3° **eEND OF SHAPE TABLE 
FOR AD%=SM% ТО ЕМУ 3‘ #@*ADDRESSES FOR SHAPE TABLE. 
DVZ=PEEK (Ар?) 2° ***DECIMAL VALUE READ FROM TABLE 


‘#*#eDECODE THE INDIVIDUAL BITS ОҒ DV% AND STORE IN BT7(). 
'***THE MASK VALUES IN MK%() ARE "ANDED" WITH THE VALUE. 
'***THE RESULT STORED IN BT%() IS THE "COLOUR" OF THE BIT. 
FOR 1: О TO 7 : '***PROCEED FROM LSB TO MSB. 
IF DVZ AND МК7(17) THEN BTX(CIX)-BCA ELSE BTA(tIZ)sCC7 
NEXT 17 


"** «CHECK THAT THERE IS ENOUGH ROOM TO PLOT CHARACTER. 
IF Вки=0 AND НМ/-НР/<4 THEN HPZzHS4 :VPZ-VP4-SP4: ' «NEW ROW 
BK7Z=BK1Z+1 : жееімМСКЕМЕМТ BYTE COUNTER. 


`***OUTPUT BYTE TO SCREEN. 
FOR 1%20 TO 7 
COLOR ВТУ (1л) 
SET (НРУ, МРА+ 17) 
NEXT 1% 


і7%еФБЕТ COLOUR OF ВІТ. 
:'***PLOT BIT. 


` ***PREPARE FOR NEXT BYTE. 
HP%=HP%+1 3: +++ INCREMENT HORIZONTAL POSITION. 
IF Вк/ч5 THEN Вки=0 :HP4zHPA*CW7. : '***NEW CHARACTER. 
NEXT AD? 
GOTO 2000 :END 


“THIS SHORT LISTING CAN BE USED BY OWNERS OF THE PRINTER 
“PATCH TO CALCULATE THE START AND END LOCATIONS OF THE 
"REVISED INVERSE CHARACTER SHAPE TABLE IN THE COMPLETED 
“VERSION. BY SUBSTITUTING THE NEW VALUES FOR THOSE WHICH 
“APPEAR IN LINES 640 AND 650 OF LISTING 1, THE MODIFIED 
'CHARACTERS CAN BE DISPLAYED ON THE HIRES SCREEN. 


Е2222222222222222222212222222225222222222222252721275222224 


'8"*CALCULATE THE ТОР OF MEMORY 
ТМ=РЕЕК (30897) +256+РЕЕК (30898) 
IF 7М>527067 THEN TM=TM-65536 


'w*"ADD OFFSET TO TOP OF MEMORY TO LOCATE START OF TABLE 
SMZ=TM+666 3 °**#START OF SHAPE TABLE. 


'*"5ADD 64 CHARACTERS x 5 BYTES TO LOCATE END OF TABLE 
ЕМ/.=5М7.+64*5-1 ;'***END OF SHAPE TABLE 


'"**PRINT START AND END ADDRESSES 
PRINT"START - 5МУ="; МХ 
PRINT"END - EMZZUIEMT 


overcome, by means of a minor change in syntax, when en- 
tering the programme line. Using the line, 


100 IF X- 4 THEN CLS4 


should clear the screen to red, when X- 4. 

What actually happens is that the screen clears normally, 
followed by a SYNTAX ERROR message, indicating the rou- 
tine at 1D78H has not recognised our enhanced com mand. p 
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ILIDSeLINMG 22. 


0001 увииниииииимииникчиянинии 
0002 ;w ENHANCED CLS COMMAND ж 
0005 ; в BY LARRY TAYLOR 1986 № 
0004 унниииииянииининининниияи 
0005 ; 
000 ;THIS SECTION RELOCATES 
0007 ;THE PROGRAM TO THE ТОР 
0008 ;OF AVAILABLE MEMORY. 
0009 ; 

0010 VCTR EQU 
0011 LO 
0012 о 
0015 LO 
0014 


7A28H 

SP , 7700H 

HL, (7881H) 
ВС,ЕМОР-МУСТ 
PUSH BC 

0015 XOR А 

0016 SBC HL,BC 

0017 LO (7BB1H) ,HL 
0018 PUSH HL 

0019 XOR А 

0020 LD BC,33H 

0021 SBC HL,BC 

0022 LD (7ВАОН) ‚НЫ 
0025 РОР DE 

0024 ІМС DE 

0025 LD HL, (7804H) 
0026 LO (VCTR) ,HL 
0027 LD (7804H) ,DE 
0028 LO HL ,NVCT 

0029 РОР BC 

0030 LOIR 
0051 CALL 
0032 JP 


0052 
0054 
0055 
0056 ; 
0057 NVCT EXX 

0038 HL, 1058H 
0039 DE 

0040 A 

0041 HL,DE 
0042 DE 

0045 

0044 NZ,1078H 
0045 HL 

0046 1D78H 
0047 NZ,CONT 
0048 HL 

0049 DE, (VCTR) 
0050 
0051 
0052 
0055 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0075 
0074 
0075 
0076 3 

0077 ;CLEAR SCREEN ROUTINE 
0078 | 
0079 
0080 
0081 
0082 
0085 
0084 
0085 HL 
0086 
0087 


;SET VCTR AS 7A28H 

‚СОАО STACK POINTER 

¡GET THE ТОР OF MEMORY 

¡GET LENGTH OF PROGRAM 

¡SAVE PROGRAM LENGTH 

¡RESET ALL FLAGS 

;TAKE LENGTH FROM TOP OF MEMORY 
СОАО NEW TOP OF MEMORY 

¡SAVE NEW TOP OF MEMORY 

¡RESET ALL FLAGS 

RESERVE 50 BYTES STRING SPACE 
3; TAKE SPACE FROM ТОР OF MEMORY 
; ОАО START OF STRING SPACE 
;RETRIEVE TOP OF MEMORY 

; INCREASE BY ONE 

;3GET CURRENT RST10H VECTOR 
STORE ІТ IN 7A28H 

;LOAD NEW VECTOR 

:СЕТ START OF PROGRAM TO MOVE 
¡RETRIEVE PROGRAM LENGTH 

¡MOVE TO NEW LOCATION 

ОО A NEW 

320МР TO READY MESSAGE 


1B4DH 
1A19H 


3 
¿START OF THE PROCESSING 
¡ROUTINE FOR NEW COMMAND. 


;SAVE ALL REGISTERS 

;CHECK TO 

;SEE IF THE 

; RETURN 

; ADDRESS 

;1S 105ВН 

;RESTORE ALL REGISTERS 

;1F NOT GO TO NORMAL PROCESSING 
;SAVE STRING ADDRESS 

;GET NEXT VALUE FROM STRING 
;IF NOT ZERO THEN CONTINUE 
;ELSE RESTORE STRING ADDRESS 
;RETRIEVE ORIGINAL VECTOR 
;AND JUMP 

;TO IT 

;CHECK FOR CLS TOKEN 

; IF NOT FOUND RETURN TO CALLER 
;MOVE TO NEXT VALUE IN STRING 
1GET NEXT VALUE AFTER CLS TOKEN 
;REDUCE ІТ TO RANGE 0-8 

; IF ZERO THEN EXECUTE COMMAND 
;LOAD B REG WITH UPPER LIMIT 
¡CHECK IF A=B 

IF YES THEN EXECUTE COMMAND 
¡REDUCE B AND CONTINUE CHECK 
INO MATCH SO RETURN TO CALLER 
;RETRIEVE OLD STRING ADDRESS 
;RETRIEVE OLD RETURN ADDRESS 
;LOAD NEW RETURN ADDRESS 
¡SAVE NEW RETURN ADDRESS 
;MOVE TO NEXT VALUE IN STRING 
ISAVE CURRENT STRING ADDRESS 
;MULTIPLY CLS 

;VALUE BY 16 TO 

1CALCULATE THE 

;COLOUR OFFSET 

;IF RESULT NOT ZERO THEN SKIP 
;1F ZERO INCREASE TO ONE 


SKIP ADD 3ADD 127 TO GET GRAPHICS BLOCK 


HL ,7000H 
(7820H) ‚ны 
DE,7001H 
BC,OLFFH 
(HL) ,A 


3LOAD START OF SCREEN ADDRESS 
¿SET CURSOR POSITION 

3LOAD START OF SCREEN PLUS ONE 
I NUMBER OF BYTES TO MOVE 

¿LOAD GRAPHICS BLOCK INTO HL 
300 A BLOCK FILL OF THE SCREEN 
sRETRIEVE STRING ADDRESS 
RETURN TO 101ЕН TO CONTINUE 


ENDP DEFB O JEND OF PROGRAM MARKER 


To have the command function properly, insert a colon be- 
tween the THEN and the new command as below, 
100 IF X« 4 THEN:CLS4 


Now, when X =4 the THEN part of the statement will be ex- 


ecuted, including, as is usual, any additional commands in. 


the remainder of the line. However, once the colon is 
reached, the BASIC ROM returns to its usual processing, via 
the RST 10H routine, and the CLS4 command is then inter- 
‘preted on its own and not аз part of the IF-THEN statement. 
This is the same solution suggested in the VZ-DOS manual, 
when using disk commands, which are affected in exactly 
the same way. 

This is essentially the approach I have used to produce a 


3.35 


LISTING 5 


100 КЕМ 
110 КЕМ 


120 КЕМ 


ПИН ини ини иинини мини хиниюиини нризиииииии 
w ENHANCED CLS COMMAND BY LARRY TAYLOR 1986 * 
ммИУММУЯАИМИИУМИЛЯЯЯАА АТАНЫ 
130 REM » CALCULATE THE NEW ТОР OF MEMORY POINTER " 
140 REM HHFHHERHHRERHHHERT ARAN EERE NHR ETETE RHIKHEUAWHMMEM 
150 NB=79: ТМ= (РЕЕК (30897) +РЕЕК (30898) #256) -NB 

160 HB=INT(TM/256) :LB=TM-HB*256 

170 POKE30897,L8:POKE30898,HB 

180 REM WAUMHHUMMHENWHSMHNHEWEHUEEERNENNMNEHZMHNHNHAHHEANHIE HANMHMOHHOMEN 
190 REM и RESET THE BASIC STACK POINTER М 
200 REM #68 Hm HH МАМ МАМЫ МАМАМА) 
210 CLEARSO = 

220 REM MMNRENHHHKVHEVHHMMHHNNERHVNNNEARHMRNHEASEUEEGHMNHE HERR 
230 REM w LOCATION OF SET UP PROGRAM ы 
240 REM WMNHEHEHHHHHHAMHWHNHHAMHERHAaHWEARENSVERHWHNMERUHHVAT АА 
250 EB=31274 

260 EHxINT((EB*1)/256) : ЕСЗЕВ+! -ЕН*256 

270 РЕМ инининиинииии ини нииинииииииининиюиииииниинию EE EEE 
280 REM w LOAD USER EXECUTION PROGRAM POINTER М 
290 REM HHHHHHERHHHHHRHH AHERN ERNE RRR RARER AR пниннниииии 
300 POKE30862,EL:POKE30863 ,EH 

310 REM пнниинниннииининииииииниинииииииини я и иининию E EEEE EEE EEES 
320 REM w LOAD 23 BYTE SET UP PROGRAM * 
330 REM WNHEHEWHHHHHHNWHNHMHNHNHEAHESEHVAVKRHEMRSHEHMERHER THER 
340 FOR T-1TO23 

350 READD 
560 POKEEB+T,D 
370 С5аС5»0 
380 NEXT 
390 REM MHRHHWHEHHEWHHEHIHMNHERHENHEHWVEWNEAHNSHHHMEHAHRNHN TETEE EEEE 
REM w GET NEW TOP OF MEMORY AND MOVE TO NEXT LOCATION * 
REM MHHNHAHMWEOWHVNEWHNHEMERNHENHKOHNEHHANNHANNNHESAUNHAEMARRHNHMHMME 
TM=PEEK (30897) +PEEK (30898) #254 

TF TM>32767THENTMSTM-65536 

REM ВИННИ 9 Et н» 
REM w LOAD 79 BYTE ENHANCED CLS ROUTINE ы 
аи 
FOR Т=17079 

READD 

POKETM+T,D 

CS-CS*D 

NEXT 

REM жания HAHN RHEE RANE RR RRR ENN 
REM w IF DATA CHECKSUM VERIFIES EXECUTE SET UP PROGRAM * 
REM WWNSHHRHEMNEHHTVEMMEMNNEHANHHNRRNNSEHYNHVENNHHSUEMERHNWHHEMHEN 
IFCSX»10958THENPRINT"- ERROR IN DATA ENTRY ~": ЕМО 

X2USR (0) 

REM иннин иннин нинин ининин нияяиняниняянинининнинин 
REM # SET UP EXECUTION ROUTINE DATA IN DECIMAL FORM " 
REM Инин нинин Инн нинин иннии OREN EHH EE 
DATA 243,49,0,119,42,4,120,34,40,122,42,177,120,35,34,4,120 
DATA 205,77,27,195,25,26 

REM WHNNSMHNUSEVNHKVNENSHNSUNERHEHVNNEVAEMEANEHMHTNVREAHNHNNEWNNEWEHHRMNEATM 
REM % ENHANCED CLS ROUTINE DATA IN DECIMAL FORM * 
REM пин инин ининин ини ни RN HEHE MERE н 
DATA 217,33,91,29,209,183,237,82,213,217,194,120,29,229,205 
DATA 120,29,32,7,225,237,91,40,122,213,201,254,132,32,245 
DATA 35,126,214,48,40,9,6,8,184,40,4,15,251,24,230,209,209 
DATA 17,30,29,213,35,229,135,135,135,135,32,1,50,198,127,33 
DATA 0,112,34,32,120,17,1,112,1,255,1,119,237,175,225,201 


410 
420 


VZ-EPSON Printer Patch, which enables all the normal 
printer functions for Epson or Epson-compatible printers. 
As well as providing the ability to LLIST and LPRINT all in- 
verse and graphics characters, the COPY command is inter- 
cepted by the patch. As a result, its function has been 
enhanced to allow a proper dump of both the LO-RES and 
HI-RES screens. Corrections have been made to the flawed 
inverse character data, and when listing, the routine is capa- 
ble of recognising all the hidden commands, which may have 
been entered using an Extended BASIC. The patch relocates 
to the top of available RAM and can be used with Steve Ol- 
ney's EXTENDED BASIC, already resident in memory, ena- 
bling ready access to the functions of both. I hope that the 
techniques used here to produce what I have found to be an 
extremely useful utility will encourageothers to attempt fur- 
ther such developments. 

Perhaps additional enhancements to the VZ's BASIC could 
be explored. The Commodore 64 is served by anumber of 
enhanced BASICs, why not the VZ? Programs which make 
use of such BASICs require that the language be loaded be- 
fore they will function properly. However, this is little differ- 
ent to programs using disk commands needing th e DOS to 
be interpreted correctly. Certainly, the opportunity exists to 
endow the humble VZ with a brand new bag of tricks. 

For anyone interested, copies of the completed VZ-Epson 
Printer Patch, may be obtained on tape for 515, from: 

J.C.E. D'Alton 
VSOFTWAREZ 
39 Agnes St 
Toowong 


Qld 4066 +. 
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New life for an old VZ 


Graeme Meager 


Since the introduction of the У220О computer in early 1983 


many users have been mystified by the fact that the 


computer did not support full level ІІ BASIC. This article 
describes a method of gaining 24 extra level ІІ BASIC 
commands for the VZ 200 or 300 without sacrificing any 


memory or software compatibility. 


RECENTLY a team of enthusiasts released a revamped 16K 
ROM (read only memory) for the VZ with the convenience 
of LEVEL II BASIC on power-up and with some technical 
knowledge, every user can smarten up their computer. 

As many users may remember, the existing ROMs were 
a major cause of breakdowns and possibly there are still many 
old VZs put away in cupboards which can be brought back 
to life with these new ROMs. This particular occurence 
prompted one user to investigate the viability of producing 
‚ап EPROM to replace the original BASIC ROM. When it was 
discovered an EPROM was available that was pin compati- 
ble with the old 16K ROM. the task for VZ300 owners was 
made very simple. VZ200 owners should not dispair, with 
the addition of just two diodes and one resistor both 8K 
ROMs сап be replaced by this single 16K chip. 

Before entering into details of the hardware modifications. 
I will briefly describe the extra facilities the new ROM will 
provide and how they have been implemented. 


THE ADDITIONAL BASIC COMMANDS: 


TRON TROFF DELETE AUTO 

FIX: CINT ERROR X ERR 

POS ON DEFINT DEFSNG 
RANDOM MEM ON ERROR VARPTR 
DEFDBL RESUME FRE CDBL 

ERL STRINGS DEFSTR ON (GOTO) 


Inverse characters 


Owners of GP 100 and compatible printers will be familiar 
with the badly represented inverse character set: these er- 
rors have been corrected in the new ROM. For the owners 
of EPSON and compatible printers, a version of the EPROM 
with the modified control codes and inverse character tables 
is currently being compiled. 

The above BASIC commands have been integrated with 
the original command set. which as a major consideration, 
enables all existing software to run unimpeded in the new 
system. The new ROM provides all commands without those 
messy loader routines, machine code calls and it is DOS (disk 
operating system) compatible. 


The software 


Statement and command execution in the VZ is by interpre- 
tation. This means that a routine dedicated to the statement 
type or command is called to interpret each line and perform 
the necessary operations. This is a common method of sys- 
tem command execution and is used by many other BASIC 
systems. Within the BASIC КОМ there is a table known as 
the RESERVE WORD LIST. This table contains all of the 
words reserved for use by the BASIC interpreter. 

When a line is read by the interpreter it scans this list and 
if the word (command) is present it will allocate a TOKEN 
value in the range 80 (HEX) to FB (HEX). This token will be 
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written into memory as the BASIC command. From here on 
the interpreter will act on these tokens and not the original 
word. Each of the new commands have their own token with 
the allocated range and will be acted on in the same wav the 
existing commands are. At this stage it should be noted that 
the original LEVEL II BASIC did not support routines for 
commands such as COPY. COLOR. MODE. SOUND, СКОМ, 
CLOAD and VERIFY. These commands have used tokens 
originally set for other LEVEL II reserved words. The new 
VZ ROM actually supports more BASIC commands than the 
original LEVEL И ROM in the TRS-80 and SYSTEM 80 (for 
non-disk systems). 

Once a value has been allocated. execution is passed to the 
VERB ADDRESS TABLES. Here the table is used to direct 
the interpreter to the routines specified bv each TOKEN. 
There are two VERB ADDRESS TABLES: the first is used 
for statements that begin with a — VERB — for example END. 
RANDOM! or PRINT. If the statement does not begin with 
a token, control goes to the assignment statement process- 
ing. The second table contains the addresses of verb routines 
which only occur on the right side of an equals sign or com- 
pliment the first verb — for example PEEK. FRE, SGN. 

The new commands have been implimented Ву writing 
new values into the above tables, so the interpreter can be 
driected to the relevent processing routines. 

As mentioned earlier, a number of areas in the ROM had 
to be re-organised. For example. the token 9E in the VZ ROM 
is allocated to the word SOUND and not the word ERROR. 
as originallv written. Routines within the ROM had to be cor- 
rected so that when the interpreter was confronted with a 
format such as "ON ERROR GOSUB ... " it would recog- 
nise the line as correct syntax. 

Other commands and routines are under investigation. and 
as thev are proven compatible I understand thev will be 
released as an update to enhance the new ROM on a change- 
over basis at a minimal price to purchasers. Each of the 
EPROMS released carry a programmed serial number to 
identify their generation and is apparent in the start-up head- 
er which reads as follows: 

LASERLINK BASIC 
MER: 2 52130 
READY 


COLOUR 
BOARD 


COMPONENT LAYOUT FOR У2200 (5:2 


ШІП 


15119 
15174 


280 CPU 


MEMORY BOARD 


1 of 2. 


V2200 MOOIFIEO CIRCUIT 


280 CPU 


DATA BUS 00-07 №. 


.. ROM1 
(NOT USEO) 


The hardware 


Firstly. readers should be aware of the following points: 


(a) any hardware modifications will void any warranty if 
current, 

(b) this project should only be attempted by someone with 
reasonable soldering and desolder skills, 

(c) to date, the modification has been carried out on VZ200s, 
both early and recent VZ300s (brown keyboard) and the 
LASER 200/310. 


A check of compatibility with the following details should 
be made before commencement. 

The case of the computer can be separated by removing 
the six screws from the bottom half. Care should be taken 
not to snap any of the kevboard cables. The main circuit 
board must then be separated by removing the screws hold- 
ing it to the base. The wires to the piezo transducer will not 
have to be disconnected if they arelong enough to rotate the 
board to gain access to the solder side. 

The next step is to remove the RF shield by clesoldering 
ihe lugs and braids attaching it to the board. For the VZ300, 
the diagram here should help locate the 28-pin КОМ. The 
old ROM should be carefully desoldered and removed to be 
replaced by a DIL socket that is provide with the new 
EPROM. The unit can then be assembled and tested. 

For the VZ200, two 8K ROMs can be replaced with a sin- 
gle 16K ROM bv adding the necessary addressing circuitry 
and one extra memory address line. From the extract of the 
\ 7200 circuit shown here. the 74LS139 decoder allows ad- 
dressing of 000-1FFF(HEX). the first 8K ROM and 
2000-3FFF(HEX) for the second 8K. These outputs need to 
he combined bv diodes to access the full 16K. А resistor is 
needed to pull the chip select pin (active low) high during 
non-access periods. To read the full 16K, address line 13 is 


COMPONENT LAYOUT FOR v2300 


(080000 


needed. The second diagram will help locate the two 24-pin 
ROMs which can be removed in the same manner. As it will 
be noticed, the board caters for a 28-pin socket so no extra 
holes are needed. 

The 28-pin socket should be inserted in the position nearest 
the regulator heatsink. Pin 26 of the socket should be discon- 
nected from the +5 V common witha sharp knife to cut the 
printed circuit track. Pin 27 should then be connected to pin 
28(+5 V). A piece of hookup wire will be needed to connect 
pin 26 (A13) to pin 3 of the Z80 CPU. As shown in the dia- 
gram the two diodes and the 3k3 pullup resistor can be sol- 
dered on the bottom of the board using spaghetti to insulate 
them from other components. The diodes are connected be- 
tween pins 4 and 5 of the 74LS139 and pin 20 of the EPROM, 
which is in turn tied high by the 3k3 resistor. 

Check carefully for any solder bridges on both sides of the 
board, and when you are certain everything is correct, you 
can re-assemble and test. 

At $35 (postage paid) the new EPROM is available from 
LASERLINK 
20-Brunker Rd 
Broadmeadow 2292 NSW 
(049) 62 1678 

The EPROM comes complete with socket and full 
documentation which includes demonstration listings for 
each of the 24 new commands. A list of state agents can be 
obtained from the above address. All in all, you'll find it a 
worthwhile enhancement. 4. 


CUTTRACK 
BETWEEN 
PIN26 AND -5V 


BRIDGE \2200 CIRCUIT MODIFICATION 


PINS 
27 ANO 28 


00000000 
00000000 


\2200 SOLDER SIOE 
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RESTORE FILE 


This is probably the most useful 
utility program ever made for the 
VZ200/300. After running out this THEW 
program and typing in new, start ri | ЭТНЕНЯ= 
typing т а program. Now type in єй E НТЕС AG. 155-42: ТГЕЗАТНЕНВ E-F 
new to erase the memory; type in а РОБЕ. ЯЕ: етж СТС 
PRINT USR(0) апа hey presto your 
program is back in memory. This 
program is excellent if you're the 
type of person who gets angry 
with their programs. 

R. Banks & M. Saunders 

Mackay Qld 


Yc BS 19% р 88. 


51 byte long Progvam loaded inte 7954 Н ~ 17434 H (31058 — 31032 ) 
End & АА s.l, кау kad by . nell. bs). End of БАСС progam 2x.nvll. bob. 
HL-re used о. а PST ptr, | 3x. null. detected. (20$ + £08) 


7952 21 £9 7А LD HL AEH St рі“. je SOB, 
55 34 ot LD (HD), Put non-. nl. (dummy ) ints $08, 
s? Es TuSH HL Save 904 ол stack. Aas 
5% CD FE ай CALL 1A fs H Like. pointers кое, (sc Soh lee 
SR E1 Por HL Rastore pte. 
56 ЧЕ ің іу A, (HL) Pre byte of PST inte В-ке, 
s> FE oo CP „ми, ЛЕ ол 605 ле 2 
SF 28 oA TR 2, 4Р2 Yes, до cheek on EOB, nulls, 
79 61 23 INC HL Bump pir, to мх} in PST. 
62 aF FF LD А, РЕН Cheek G; TOM, 
64 BC CP H We byte of ple, 
е 20 Fs TR N2, LP Go back Js dest PST byte. 
67 BD CP L Lo byte of pir. | 
A C RET 2 Tom (ғеғен) read,- ext [erroe 2 
644 до Fi TR N2, LP1 Go beck l, tub Psr Ly. 
68 аз LP? INC HL Bump рф". fo mx} in PST, 
fC ЧЕ LD A, (HL) Pur byte ot PST the А-ға, 
63 ҒҒ ee CP улый. lh uk CAR Боб null? 
К ae EB JR №2, LP1 Go back Yo tuk PST hyk. 
141! 23 INC HL Bump phe № nx ie PST. 
72 ТЕ Lp ñ, (HL) Pat byre РЕТ А-ке 
73 ҒЕ оо СР .nvyll. hb Second Fob. nll. 2 
45 2e Es TR N2, LP1 Go bak L deb рет Ы. 
77 23 INC HL Bump ple to mx? above PST. 
38 22 fqq Сы 54 Fob pie k HL addy, 
228 ЗЕ vo LD A, am Zeva  A-reg, 
72 FE оо CP өз Qu 2 -flas 
ЧЕ CD JAIE CALL 1Е7АН CLEAR ron, 
79 82 C3 64 оо TP ооб Н. NMT roubis rud ІРІ. eaten k BASIC. 


E FILE COPIER Ride Buhre. 
В seh Dove Boxee зәу\й) 


lä DHTH223. 22 jur. LEB, 25032, 2.203, 158,¢ ‘ 209, 148,2 Ja 
20 DATAZ29, 205, 177 52 FE 66, 96, 205, 244, 557 

3B DATAEZ, 248, SB. 218. 122 

48 FORI=21867T021161:FERDH 


E FILE COPTER INSTRUCTIONS ы 


СЕНН Е FILE COFIER THEN PORKESI 21 7. 176. С<КЕТПЕНЗ 

THE Mrawd PROMPT HILL APPEAR, (ГІЗІ МАСНТНЕ LRHGLIRSE РЕ 
-OGRAM TO EE COPIED 

HHEH READY FROMPT APPEARS РОКЕЗ Авг, 243: РОБЕ б, 14 
«КЕТПЕН; PüEEZIBGS.241:PÜKEZ18?H8,195:PFüKEZ1871.172 
SUELE FüKES1B?2.92:PFÜKEZBSz4,PEERC TATTA CRETLEH2 

РОК s. PEEKE APSL 2: PORE21217, 175: PILE НННЕКРЕТМЕНЯ 


Ex byte Pegram ы load 5-СҚ 1, tape. 
Pro ovens | реа inte баға уед б Dos vectors. 


7958 Es Pusi HL Save HL va. 
S C м 39 1% LD HL, 7839 H foink to FLAGA 
SF ев Ве RES Z (ni) Rauh bl € Xs 2wo (ском Flay) 
6) CB 9Е RES 3, (ut) Rud Біз te 2wo (very Mag) 
43 £1 POP HL faber НЕ rey. 
6+ F3 DT Dis able Inturupte. 
6 CD 8С 35 CALL 355 С. Pick үр тоғы. 
(8 Es PUSH HL Seve HL veg. 
fa CD 8! 35 CALL 3581 š 
(c 2j 42 3 LD HL, 3342H Ф} hb warming text 
(Е Cp # 3) CALL 31Ғ4 
1^ CD Ел 35 CALL 35 67 ыз Saving vouie Слойь 
75 SE A 19 A, FaH Àv to фе хеси Flag. 
n 32 D2 7A L) (nazan) А Buller ©. cassette 110. 
7A Сз 33 36 TP 363 Buk ор “олым "теа. 
19 7D. Co RET. d 
ANS. ved zd ux byks ар progvam . 
7958 F3 DI 
$C ФЕР LD c, Fr H 
195Е Сз B3 34 TP 3463 Pork of csave, 
3017954 35: E/E Polo en bee сой. CLOAD ah ép 
3088 AS 724/7 Sack „Ё 65. уой». 


31217 19 F4 Sab 1, Bu ж Џо Ье. 


String Ше name 2920 :TO ALLOW ENTRY OF YOUR OWN 
2930 :DATA. THE ABOVE IS JUST AN 


Recently I required a program RAM location іп ап array. 2940 :EXAMPLE OF SAVING DATA TO A 
Е 8 22 2950 :DISK FILE. 
to save data to a disk Ше on When а file is to be accessed it 2556 assassin ac caa 


VZ300. Unfortunately, I dis- pokes the file-name into these — 2980 : 
covered you cannot use a string locations. When the program 2990 REM SAVE TO A FILE 


ч : an ited 3000 CLS 
as a file name and so I de- begins, nothing will happen for 3919 INPUT"PLEASE ENTER THE FIRST VALUE";A 


veloped this little program. It а few seconds while the pro- 2020 INPUT"PLEASE ENTER THE SECOND VALUE";B 
searches through RAM to find gram searches for the Tequired 3030 GOSUB 5000 


; : 3040 IF ER THEN GOSUB 25 
where the program begins and lines. аа ня 


then locates the disk file han- . T. Hand, 3060 RETURN T 
dling lines and stores their .. Bentlelgh, Vic 3980 : 
3990 REM LOAD FROM A FILE 
4000 CLS 


4010 GOSUB 5000 
4020 GOSUB 30 


4030 CLS 
JO GOTG lO 4040 FRINT "FIRST VALUE ENTERED WAS - " 
20 REM LOAD FROM FILE F$ 4050 FRINT А 
ЗО GOSUB 10000:REM CHANGE FILENAME 4060 FRINT "SECOND VALUE ENTERED WAS -" 
40 REM ЖЖ 4070 PRINT B 
50 OFEN" "o 4080 A$=INKEY$:IF LEN(A$)<>O GOTO 4080:REM CLEAR BUFFER 
60 REM xk 4090 FRINT:FRINT 
70 IN#" "A,B 4100 FRINT "FRESS SFACE BAR TO CONTINUE" 
80 REM xx ; 4110 A$=INKEY$:IF A$<>" " GOTO 4110:REM WAIT FOR SPACE 
90 CLOSE" “ 4120 RETURN 
100 RETURN 4980 t 
110 : 4990 REM ASK FOR FILENAME 
120 REM SAVE TO FILE F$ 5000 CLS 
130 GOSUB 10000:REM CHANGE FILENAME 5010 INFUT "PLEASE ENTER THE FILENAME";F$ 
160 REM xx .5020 F1$=MID$(F$+" ",1,6) 
170 OFEN" “71 5030 RETURN 
180 REM kx 9980 : к 
190 РЕ#" "А,В 9990 КЕМ CHANGE FILE NAMES TO F$ 
200 REH ** 10000 FOR Ізі TO 7 
210 CLOSE" “ 10010 IF Е(1)=0 GOTO 10080 
220 RETURN 10020 С=0 
230 : 10030 FOR J=1 TO LEN(F1$) 
240 REM ERASE FILE F$ 10040 POKE F(I)*C, ASC (MIDS (F1$,J,1)) 
250 GOSUB 10000:REM CHANGE FILENAME 10050 С=С+1 
260 REM tti 10060 NEXT J 
270 ERA" " 10070 NEXT 1 
280 RETURN ; 10080 RETURN 
290 REM ^^ 19980 : 
300 : 19990 REM INITIALIZE ROUTINE 
310 : 20000 DIM F(7) 
320 : 20010 C21 
330 :1T IS VERY IMFORTANT TO ENTER 20020 FOR I-31500 TO 33000 
240 :THE LINES WITH REM xx 20030 IF NOT(PEEK(1)242 AND FEEK(I+1)=42) GOTO 20080 
350 :AS THESE ARE USED TO LOCATE THE 20040 FOR 2-1 TO 1%20 
360 :FLACE TO CHANGE THE FILE NAME. z 20050 IF FEEK(J)=34 THEN F(C)=J+1:C=C+1:GOTO 20080 
270 : 20060 NEXT J 
380 :THESE THREE ROUTINES ALSO SHOULD 20070 РКІМТ “ERROR FINDING FILE NAMES":END 
390 :BE AT THE TOF OF THE FROGRAM 20080 IF РЕЕК(1)-94 AND РЕЕК(1%1)-94 GOTO 20100 
400 :TO SAVE TIME WHILE SEARCHING ` 20090 МЕХТ І 
410 :FOR THEIR LOCATION IN MEMORY. 20100 RETURN 
420: 


450 :WHEN SAVING ОК LOADING DATA, 
440 :THE LINES WITH IN# AND F'R# 
450 :CAN BE CHANGED TO STORE YOUR 
460 :OWN DATA 
470 
480 
490 
500 REM MAIN FROGRAM я 
1000 GOSUB 20000:REM INITIALIZE 
1010 CLS 
1020 FRINT "DO YOU WANT TO " ` 
1030 FRINT "SAVE, RE-SAVE OR LOAD" 
1040 A$=INKEY$: IF LEN(A$)-O GOTO 1040" 
1050 IF A$-"R" THEN GOSUB 2000 

° 1060 IF A$-"S" THEN GOSUB 3000 

- 1070 IF A$-"L" THEN GOSUB 4000 
1080 GOTO 1010 


1980 : . 
1990 КЕМ RE-SAVE А FILE 

2000 ER=-1 

|2010 GOSUB 3000:REM ENTER DATA 
2020 ER=0- 


2050 RETURN 
2900 1111111111111133153 5553 3 412133 33 
2910 :THIS ROUTINE CAN ВЕ CHANGED 
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КЕМ DISK DIRECTORY DUMPER 
REM "BY G.TUNNY (C)OPYRIGHT 1988" 


REM2 3 3 3 J 3 x X X X X X X X X X X ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ 
ЕРАТМТСНЕ$ (27); СНВ$ (21);:ВЕМ SET SINGLE LINE FEED 
CLS:PRINT" DISK DUMPER ":REM INVERSE 
INPUT"HEADING FOR DISK" sHs 

INPUT" INSERT DISK AND HIT RETURN" ;Х2$ 
LPRINL"----":H&i"---— 


LPRINT 
7 
Р0КЕ30876,1 $ OUTPUT DEVICE Cope 


STATUS із PRINTER 
9=VIDES 


+ > CASSETTE 


LPRINT 
POKE30875, 1 
DIR 


X Esc 21. 
FORI=1TOLEN(H$) +7 


May nob work 


ол Ер Seng. 


LPRINT"—-"3:NEXTI 
b pR pk * =" 
INPUT"ANOTHER COPY" š Y$ 


lFYsz"YES"ORY*z"Y" THENRUN 


Disk Directory the disc status directly on to 


Dumper the printer. 

G. Tunn 
This handy little program А да 
dumps the disk directory апа NSW 
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CTRL-Break Disabler VZ200/300 


Q '*x*a4*A kk ++ +++ ke Rd е тя Аа 
7*xDISABLE CTRL-EREAK PROGRAMS 
2 7% "V2300/200* BY G.TUNNY* 
“ЖҚ COPYRIGHT 1988 КАҮ ж 
Зиля 555224252522 
5 ТМ=ЕРЕЕК (20697) +2565 PEER 26898)-40 
10 РОКЕЗ0897,Т1М-1ЫТ(ІМ/255,-:588:РОКЕСОВ9ОВ, INT: TM/256) 
15 Тм-ТМ-1:А-Тм--553% 
20 FORISATOA*34:READD 
PFOREI,D:NEXTI 
POKEZ22S845,TM- INTCTM/Z32)*255: PORE 30847, INT(TM/256) 
РОКЕЗ0845, 195 
REM**REST ОЕ PROGRéM** 
REM 
102 DATA33,:53,104,70, 223, €0, 42, G2, 201. 00, 32, 222, 104, 70, 203 
110 РАТАВУ, 49, 02, 201,243, 33. 44,00,21, 00,01, 205,92,52, 251 
120 DATA195, 00. 22, 23, CO 


This small machine code pro- save the program before you 
gram uses the interupt to execute it. 

check for the CTRL-break To return the CTRL-break 
keys. If they are pressed the keys back to normal, enter 
program counter jumps to the РОКЕЗ0845,201 and to re- 
start of ROM and restarts the start the machine code pro- 
system. But there are a few gram, enter POKE30845, 195. 
basic commands that disable G. Tunny 
the interupt, such as DOS Gorokan 
commands. It is advised you NSW 
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4 
54 мир oak, initiated . hy les board Sannin E 
robin  383D/£/|F +. TP stot of Program, qu^» 
75 61/2. Tom ph. TELF Use plv. | 
3897/8. 3o862/3. 
21 Fp бтв ФН Ron addr, Аа, — x/smev/c[2]V 
46 LD B CHL) Load matrix into B rey. 
CB $o 8iT 2, B. Bik 2 h ST ke. 
27 оз TR 2 жә № 2evə thin SHFT ku depressed. 
Co RET ee e [с return. 
eoo NoP 


a^ DF 68 LD HL 68DF Йо addr. k'hd. 4/5/стаг/р/ A/F 
46 LD 8 (н) Load matrix mh $ reg. 

CB so та B Bik а Ж Cm ke. 

2% од JA 2, 92 ЈЕ zevo Ilan 6x key сергея. 
Ca RET oos else return, 

f3 DI Disable inter ypte. 

2 aC оо LD HL 282C Set HL CA lh 44D 

9! s» oi Юм SF 86 (ықы) Fo 42. 

CD SC 34 CALL 345 С Sound You PAL. 

FB EL Ena bly лр k | 

С3 оо оо JP қаза, Cold stan} Computer. 

Do оо NoPs . (зе baña) 


VZBUG — A useful program for 
memory related work on the 
VZ200 or VZ300 | 


Have you ever wanted to look inside а VZ memory chip? 
There are two ways to do this. The first is to get a 
hacksaw and cut the chip in half. The second method is 
to use VZBUG. We think you'll find VZBUG much more 


informative than the hacksaw. 


ONE OF THE DISADVANTAGES of the 
modern home computer is that the user 
never really gets the opportunity to get 
into the guts of the machine. Most of the 
time the small home micro is in BASIC 
mode, and the user doesn't have any 
idea why the computer does what it 
does. VZBUG remedies this by letting 
you get into the "nitty-gritty" of your 
VZ's insides. 

VZBUG is ideal for fixing jammed 
programs, or for other memory related 
work. In addition, you can use VZBUG 
for loading and saving data onto casset- 
tes, clearing the screen, typing text into 
memory and printing it — a mini word 
processor! 

Once you have VZBUG installed you 
will wonder how you ever got on with- 
out it. 


Functions 


There are seven main functions in 
VZBUG. АП numbers are entered from 
the keyboard in hexadecimal. The func- 
tions are called after the program is 
loaded with the following commands: 


C - Clear screen 

G — Goto memory location and execute 
program 

I- Insert ASCII into memory 

L —Load from cassette 

D — Display memory location 

O - Output memory 

S — Save to cassette 


To terminate the program and return to 
BASIC, simply enter G1A19, which 
translates to “goto HEX 1419 and exe- 
cute". 1A19 is the return-to-BASIC 
address contained in the VZ ROMs. 


Clear screen - just type “С” and the 
screen clears, returning the prompt 
character to the top left hand corner of 
the screen. 
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Goto — type “С” and the computer will 
ask you for a memory location. Enter the 
location in HEX and the computer will 
jump to that location and execute what i 
there. If there is not a valid program at 
that address the computer might lock 
up, so be careful. 

Insert ASCII into memory - type “I” 
and an asterisk will appear on the 
screen. Enter the start address (again in 
HEX), and start typing. This is in effect a 
mini word processor. To exit the com- 
mand and return to the VZBUG com- 
mand loop, simply type CTRL “Е”. 
Load cassette — typing “Г” will result in 
the word “WAITING” willappearon the 
screen. Press PLAY on the cassette 
player and the next program on the tape 
will be loaded, in the same manner as 


10 CLS 


50 PRINT 
60 FOR Х=1 TO2000:NEXT X 
70 CLS 

80 N-1000 

100 FOR А=-20480 TO -19286 
110 READ A$ 

150 GOSUB 500 

140 G-Ft16 

150 60508 510 

160 J=G+F 

170 РОКЕ A.J 

175 
180 
200 
210 
Soo 
505 
510 
520 
520 
540 
550 FRINT" 
560 PRINT" 
570 FRINT" 
S80 FRINT" 
2590 STOP 
1000 DATA 
1010 DATA 
1020 DATA 


NEXT A 


STOP 
ZS=LEFTS(AS, 1) 
GOTO S20 
2$=RIGHTS (AS, 1) 
E=ASC (2%) 


ERROR" 


WRONG BYTE ":AS$ 


CHECK LISTING FOR INCORRECT 
CURRENT ADDRESS": 


ZE, 0D, CD, ZA, 03, SE, 2A, CD, ZA, 03,CD,F4, 
F9, РЕ, 53, СА, А7.В1,РЕ, AC. CA, SZ, E2,FE, 
49. CA, 64, B2, FE, AF, СА, B2,B2,FE.47, 


the BASIC CRUN command. CTRL 
BREAK will terminate the load and 
return you to BASIC. 

Display and alter memory ~ this com- 
mand allows you to display and alter 
any memory address іп the VZ RAM 
area. Type “D” followed by the address 
you wish to access, e.g. DCF00 will dis- 
play the contents of memory location 
CF00. If you wish to change the con- 
tents, simply type in the new data, in 
HEX of course. If the data typed is O.K., 
press RETURN to proceed to the next 
memory byte. To return to the VZBUG 
command loop, simply type “N”. 
Output memory - there are four diffe- 
rent ways of accessing the VZ's memory 
with this command. They are: 


“Output to printer in ASCII” - This 
prints out the contents of the locations 
selections on your printer in ASCII for- 
mat. This is used to print out text 
created with the “Г” command. The out- 
put is terminated by the HEX byte “00”, 
which is the terminating character of 
the "I" command. 


20 FRINT G200,."V2 MEMORY LOADER" 
ZO PRINT @ 2Z2,"=========== 
40 PRINT"THE FROGRAME WILL AUTO.EXECUTE ON COMFLETION" 


M=M+1: IF M=16 FRINT"LINE";:M-O:N-N*10:FRINT N 


FOKE 20862,00: РОКЕ 20862,176:M-USR(N) 


IF Е>47 AND Е<58 THEN F-E-48:RETURN 
IF E?64 AND Е<71 THEN Ғ-Е-55: RETURN 


BYTE” 


A 


ZE,FE,00, 28 
44,28,2А,ҒЕ 
28,1F,FE, 42,28 


4 of 2. 


“Output to printer in HEX” - This prints 
out the contents of selected locations on 
your printer in HEX code. Only 256 
bytes are printed and then the program 
stops, displaying a “?” prompt on the 
screen. Press RETURN to print out the 
next 256 bytes or “Е” to return to the 
VZBUG loop. 


“Output to screen in ASCII” — Same as 
the first option, but the output is 
directed to the screen, not the printer. 


“Output to screen in HEX” — Same as 
the second option, but output is 
directed to the screen and blocks of 16 
bytes are displayed at a time. To return 
to command loop, press “М” 


These options are selected with the fol- 
lowing command line parameters: 
Select O for output, then: 


5/Р to select Screen ог 
Printer output, enter 
start address in HEX, 

H/A to select HEX or 


ASCII format. 


e.g. to display address B000 on the 
screen іп НЕХ, 
type O,S,B000,H 


Save on cassette – this command allows 
you to save a block of memory to cas- 
sette. Type "S" followed by the name 
you wish to allocate to the block (14 
characters maximum). CTRL “Е” 
finishes the entry of the file name. You 
must also enter the start and end addres- 
ses of the block and then select either 
“В” or “А”, depending on whether you 
want the block saved as a load-only or 
auto-execute routine. The “B” parame- 
ter saves the program as load-only, 


1170 DATA СЯ, ЗЕ, СВ, ТЕ, СЯ, ЗЕ, СО, ТЕ, 84, CD, ЗА. OZ, AF, 3A. РС, СЕ рата Е р 
1140 PATA Её, ОЕ, СО, 22, B4, CD, ZA, 02, C9, 2 ),CD, А, О ‚20 DATA. 32.28, Сое ҒА, СЕ, 0, 
1150 DATA 52, ҒЕ, СЕ, СО, Е4, 2Е.ҒЕ, 00,28, F9,FE,0D,29,29,FE,4€ DATA 26,С2,00, “nO, ТЕ, °8,81,CD,ED,#1, DD 
1150 DATA СА, 00, ВО, ЗЕ, АВ, Z2,FF,CF,CD,S1,B1,ZA.F5. СЕ, CD,9F DATA 2А,А4,78, 00,2 ‚,00,00,77,00;3Е 
1170 DATA Bt; Ch; 27, СВ, 27, СВ, 27, СВ, 27,47, ЗА, 27, СЕ, CD, OF, B1 1400 DATA ор,00,77,01, „Сз, cp, Еа, ШЕ, FE 
1180 DATA В8О0,Ер,5в.ҒО,СҒЕ,12.2А,ҒО,СЕ,22 FO,.CF,CD,Z8,RB1 1410 DATA 
1199 DATA ZE.OD,CD ,OZ,C3,B2,BO,CD, 50,24, CD, $0, 34,CD, SO 1420 DATA © КЕ 
1200 рата 24,Ср,50, 150,5 4, CD, 50, 34, CD, $0, 34, CD, 50, 24 1420 DATA з: 
1210 DATA С9,ОО,21,Е4,СЕ,ОО,22,Е4,СЕ,СО,Е4,2Е,ЕЕ,ОО,СА,59 1440 DATA 2 ,2F,CD, ZA ZE,SO,CD.ZA 
1220 DATA E1,11,26,B4,47, 1A, BB, СА, 72, Bl, FE, FF, CA, 59, B1, 15 1450 DATA 28,F9,FE, 50, 28,06,FE, 5, 28,05 
1220 DATA 18.F3,CD.Z4,02,DD,2A,F4,CF,DD.,77,02,DD Р 1450 рата DD,CD, 25, 02, CD, ED, B1, 36; 48,CD 
1240 DATA F4,CF,CD, .БІ.СА,ЕҒ,СЕ,ҒЕ,АВ,СА,96,Б1, .F4,.CF 1470 DATA 2 E,41,CD,ZA5,03,CD,F4,2E,FE 
DATA FE,FB,CB,C3 SEA,CF,FE,F5,CB,C3, 59, B1, DE 1480 DATA 00,28,F9,FE, ‚ав, СА,25,В2,ҒЕ.41,СА.6 ,В2,18,Е0,2Е 
DATA ZO.FE,OA 78. ОЕ. 07, С9, CD, 28, B1, ZE, OD.C 1490 DATA OD,CD,26,02,20,44,78,2A,E2, CF, FE, 50,СА, ОЕ , 84, CD 
DATA 4E. CD, ЗА 1500 DATA 75,28, OO, BO, 3E, OD, CD, ЗА, 03, ЗА, E2,CF,FE , 50, 28 
DATA ср, за, о .2D, CD, ЗА, 02, DD, 21 “ро, ‚СЕ, 1510 DATA 51 ,А5.78,С0,62,В2,2А.44,78.Ср, 5,3E ОО, СО 
DATA OO.DD «DD, 22, EO, СЕ, CD, 87, B2, 1520 DATA та 2А,А4, 78,06,10,7Е, CD, 63, B2,22,10,F9,22,44 
DATA OD.CD,.Z4.02, CD, ED, BL, CD, FC, B1, ов. 82,36; 1520 рата 78,CD.F4,2E,FE, 00, 28, F9, FE, OD, 28, DS, FE, 4E ‚СА, OO 
DATA ZA,O02,CD,5B,BO,.2A.FA,CF,22,A4,78,C9, 5E,45,CD, ЗА 1540 DATA В0.18. EE, 2,FO,CF,E6,FO,CB, ЗЕ, СВ, ZF,CB, ЗЕ ‚СВ, ЗЕ 
2 DATA © В, BO, ТА. FA, CF, 22, F9, 78, C9, 2E, 42, 1550 рата CD,2F,B4,CD, 204,02, ZA, FO,CF,E6, OF, CD, 2F, 84 , CD, ЗА 
2 DATA 2Е.20.С0р ОТ. 2E. 41. CD. СА, prom CD 1560 DATA OZ,C9,ZE,10,Z22,E4,CF, ЗА, 45,78, 4Е, CD, C4, 83, 2A,AF 
DATA = 1570 DATA 78,4F,CD,C4, BZ, 0E, 20,CD, 8D, 05, 2E, 10, 22,E9 ‚СЕ, ЗА 
DATA 1580 DATA EB,CF,FE,00,28,56, 3D, 22, E8, CF, 20, 44,78, 7E , 22, 22 
1020 DATA 1590 DATA 44,78, С0, С4, EZ, ОЕ, 20, CD; 8D, O5, 18, EZ, OE.0A , CD, 8D 
1040 DATA Li 2 5 1600 DATA 05203 ‚Оо ‚БО, 32,20, СҒ,Ео,ҒО,СВ,2Ғ,СВЕ, ZF,CE ZF, СВ 
1050 БАТА z8.B1, CD. 5B. BO.2A.FA.CF,E9,CD. 3 | : s 1610 DATA ЗЕ,Ср,2Е, B4, 4F,CD.8D,05, 30,F0,CF,E4, OF cD. 2F, 84 
1060 DATA bB, Во, ЗА, ҒА, СЕ, 22,Е0,СЕ, C3, 62, ВО, СО, 51, B1, ТЕ, ор 1620 DATA 4Е,С0, 80, 05, С9, Е, ЗЕ , СО, А, OZ, CD, F4, 26, FE ,00, 28 
1070 DATA „ЗА. F8,CF.CD.9F, BL, СВ, 27, CBE, 27, СВ, 27, CE 1520 DATA F9,FE,0D,28,8D,FE, 45, СА, OO, EO, 18, ЕЕ, OE, 0A . CD. 8D 
1080 DATA ЕВ, СЕ. ЗА, F9, СЕ, Cp, 9F, Bl. 47, 3A, FA, CF, 80,32 1540 DATA 05, 3А,Е4, СЕ, 3D, FE, 00, 28, DC, Z2,E4, CF,CZ,gz , B2, 22 
1990 DATA 1550 DATA Eb, CF,7E,FE, 00, СА, 00, BO; FE, OD, СА, 27, B4, qp , СО, 8D 
1100 DATA 32,FD,CF,7A, LET, “СЕ, ‘со, 9Е, PT 147.36, FD, CF, 80 1560 DATA 05,24,E6,CF, 22, 18, EB, ТЕ, ОА, 4Е, CD, BD, OS, 1g,F2,11 
1110 DATA СЕ, С9,2А.РО.СЕ, 7С, CD, C9, BO, 70, CD, C9, BO, 1670 DATA 25,В4. SF,1A,C9,20,31,32,33, 24, 35, 35, 357 , 28, 39 
1120 DATA Z4,02.7E. CD, C9, BO,CZ,E9, BO, Z2, F2,CF, Ев. FO, CE, ZF 1680 DATA 41,42, 5 44, 45,46, FF 


9:91 a, 


whereas using the “A” parameter will 
create an auto-executing file. If you use 
the “А” parameter, be certain that the 
start address is a valid execute address, 
or the computer may lock up. 


Getting VZBUG going 

VZBUG is loaded as a BASIC program 
shown in the accompanying listing. I 
would strongly suggest that you enter 
the program in a number of stages, sav- 
ing your work progressively. Take your 
time — maybe you should consider 
entering the data in two or three sittings, 
rather than a single eye-blurring, mind- 
boggling session. 

Before you run the program initially, 
SAVE IT to cassette. As is always the 
case with machine-language-loading 
BASIC programs, a single error in enter- 
ing the DATA statements can result ina 
computer lock-up, and the loss of all 
data in memory. 

When the program is loaded it pokes 
into memory all the HEX code con- 
tained in the DATA statements at the 
end of the listing. It also checks to see if 
you have accidentally entered a non- 
HEX byte, and if so displays the address 
and contents of the incorrect byte. You 
can use this to locate and correct the 
error, by comparing the listings. 

If you enter an incorrect but neverthe- 
less valid HEX byte, the program will 
not trap it, and it may cause lock-up, so 
proceed slowly and carefully. 

The program occupies addresses 
В000 to B447. It cannot be moved as it 
contains absolute addresses. I am pre- 
pared to supply reassembled programs 
at a different address, if you drop mea 
line at my address (see end of article), 
including a blank cassette arid, cheque/ 
money order for $10. 


Useful subroutines 


Here are some additional useful sub- 
routines I have implemented in VZBUG 
for users. 

Executing hexadecimal address B151 
instructs the computer to accept either 


‘two or four bytes from the keyboard, 


convert them to HEX and store them at 
HEX CFFA/B. The size of the input, two 
or fourbytes, is determined bythecheck 


. byte located at CFFF If the check byte is 


HEX AB, then two characters will be 
accepted. Any other data will allow four 
bytes to be accepted. 

Calling address B19F converts HEX to 
ASCII, and is used to display HEX data 
on the screen. The value to be converted 
is the one resident in the accumulator, 
after conversion is completed, the con- 
verted value is held in the accumulator. 

Location B42F contains a routine to 
convert ASCII input from the keyboard 
into HEX. As with address B19F, the 
accumulator is used for both the origi- 
nal and converted values. The D and E 
registers are also used for this. 

Besides these useful subroutines, 
there are many more contained in the 
VZ ROMs. Included with the assembler 
tape from Dick Smith Electronics is a 
full listing of the useful VZ subroutines. 


Ready set go! 

Now is the time to roll up your sleeves, 
polish your glasses, take the phone off 
the hook, and enter in the VZBUG list- 
ing. REMEMBER - take it easy, be care- 


ful, double and triple check, and save 
before you run. HAPPY COMPUTING! 


Reg Batger 
13 Hillview Rd, 
Kellyville 2153 NSW 
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Clock 

This is another of ту inter- 
rupt controlled programs for 
all you VZ owners out there. 
This machine code program 
could be put into games os 
an accurate timer. Because 
this program does not depend 
on basic, it will not lose track 
of time when you break out 
of the program. There are 
only a few commands that 
will make it lose a second or 
two, such as DOS or sound 


ETI NOVEMBER ‘88 
120 


1 of 2. 


commands. 

The storage locations used 
for the seconds, minutes and 
hours are written in the Basic 
program and can be poked to 
change them. It is advisable 
to save this program before 


you run it because machine , 
code has a nasty habit of | 


crashing. 
G. Tunny 
Gorokan 


NSW 


1 'w.............. 
27% CLOCK . 
3 '* BY б. ТОММУ + 
4 '* (C)OPYRIGHT * 
5 '* JULY 1988 * 

Ó T GE A AE 222522152224 

1@ DATAZ3, $92, 121,53, 192,54, 60,58, 197,121, 60 
20 ОАТА254, 60, 20, 4, 50, 197,121, 201, 33,197 

32 РАТА121,54,0;58, 194, 121,68, 254,60, 40 

42 DATA4, 50, 194, 121, 201,33, 194,121,54,0 


50 РАТА1,0, 1,33, 42,0, 205,92,52,58 


-60 рАТА195, 121,60, 254,13, 50, 4,50, 195, 121 


72 DATA201,33,195,121,54,1,201, 0.0 7? bytes, 
100 TH=PEEK (30897 ) «256«PEEK (30696) >q 70 

110 POKE30897, TM- INT( TM/256) +256: POKE30898. INT(TM/256) 
120 ТМ=ТМ-1:А=ТМ-65536 

130 FORI=0T068 

140 READD:POKEI*A,D 

150 NEXTI 

160 POKE30846, TM- INT( TH/256) #250: POKE30847, ІМТ(ТМ/256) 
170 РОКЕЗ0845,195 

200 CLS 

210 S=31173:? STORAGE LOCATION FOR SECONDS 

220 M-31170:' STORAGE LOCATION FOR MINUTES 

230 Н=31171:’ STORAGE LOCATION FOR HOURS 

240 PRINT***ENTER CURRENT TIME*«* 

250 PRINT: INPUT*MINUTES" { А: РОКЕМ, А 
260 INPUT*HOURS* jAtPOKEH, А 
270 сїз 

282 PRINTa820,'SECONDS*,PÉEK(S)i* * 
290 PRINT8O.PEEK(H) i* it ;PEEK( HD 1" " 


300 GOTO 280 


А very interes hing application off interrupt vse, 


"TR. 


lerep} vector 30845/6/7 в" 7870/5) F H is stolen 


and оу4 te —" Ll machin language veut ia дуз) DA ма? shut. 


287D H is Set % 


“Ne: interrupt "as 


RETorn during іш Ha lia oa at 3 E33 H. 
the Inter ray | Servie боуы. 


called 50 т- 


Ji pv Second, 


В is САДА Ы 


а} АЕВСН. every Qo m.Ste. 


| А. er as] 


Value Сл. Fiming ? may м) е + ie Ж се ‹ Joana. с 
Aio that x the hove ‚ а beep 15 mace. 
Коше Jemp 8 чун ters are М In J. {оким Aree, “Жие 


Cause Р" bk m$, le Soman 


PES 
3170 79C2H - MIN. 
3171 79 Өн T Hour. 
Зи 68 19 CoH - Коомт 
3173 14 С5Н = Sic, 


app JC Hoa б 


Thy are 


21 Со 


Wl 


CLOCK routing ETI No 83. p 129, 


LD HL, KOLNT 
DEC (HL) 
RET NZ 
LD (Hn), £o 
L» A, (sec) 
Ine A 

CP 60 

IR 2, 4 

LD (sec), A 
RET 

LD HL, SEC 
LD (н), o 
LD А, (mis) 
INc А 

CP о 

TR 2,4 

LD (мм) А 
RET 

LD HL, тіче- 
LD (HL), о 
LD ВС, 256 
LD HL, 42 
CALL 345СН 
LD A, (Hour) 
Inc A 

CP 1% 

TR м2, 4 
LD (Hove), A 
RET 


LD HL, HOUR < 


17 (нь), 1 
Rea 


Nors. 


Poink HL at interrupt counter Count down secs 
Decrement Counter 

Qulu ме ЖТ. zivo “eke continu to st Ems. 
Rest counter. (еа valve) SNNT 
PY $z Gl A 

leet А. 

Серега wh бо. 

IC zwo go to min, узу, elsa oon nw, 

Quad SEC 

ФА to mamiine. 

qoc HE Р oS ec Nin. voutine | 
Sub SEC to zwo 

Ф} MIN inte A 

herem? А 

Compare wilh фо, 

0 zwo goto Мәс мома ebe continue. 

Reset тт 

Фот bo mainline. 

Font HL at мм How youhhe 
Suk min to гемо, 

Su duwation to 2S6. 

Sot tom te 42 

Sound bae wery hour. 

Put Hour inte A 

Increment А 

Сауе е к ОЗ, 

K zw. 90 +a М vesc) rovtine , che Continue, 
Reset Hour. 

Redurn L main hinc. 


% inl UL at Ho UR Ho uv Уе} Yo ina. I 
Sul ’ Hove % ON. 
Rayo. ko Marn Же KR Ан 
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Hello program 


This hello program loads the 
directory onto the screen and 
convenlently allows the user to 
load, run or erase programs 
without typing lengthy filenames. 
If there are any filenames that | 
you don't want to come up In the 


hello program, rename the | 
fllenames to have an asterisk at | 
the front. 
e.g. a file - ‘picture’ becomes 
(Picture). 
G Tunny | 
Gorokan 
NSW | 


ЕТІ FEBRUARY '89 


118-4 


1 бот 
3 REH 
4 LOA 
5 REM 
& BLO 
19 RE 
29 RU 
3e RE 
4@ BR 
50 RE 
89 ER 
98 RE 
91 te 
92 '* 
93 '+ 
947» 
95 '* 
96 '* 
97 '* 
100 T 
120 R 
130 T 
135 I 
140 P 
150 1 
160 I 
178 G 
200 T 
210 I 
220 6 
230 T 


01802 
Л 
р“ . 
n 
Ар" ° 
mi! 
м“ . 
м! 
ом" . ! 
mit 
А" * t RUN 
" 
9*3 4-44-44 ФАЗА З АРААРА З 
DOS "HELLO"* PROGRAM ж 
v2300/200 . 
WRITTEN BY G.TUNNY + 
(C)OPYRIGHT 1988 + 
NOVEMBER * 
теа ARA 
=РЕЕК{ 34084 )+256+РЕЕК (40885) 
ЕМ 
=T+1 
FT>32767THENT=T-65536 
-РЕЕК(Т) 
FP=33ANDPEEK(T+1)=33THEN200 
FP=94ANDPEEK(T+1)=94THENRETURN 
ото1зе | 
=T+1 | 
FPEEK(T)*34THEN230 
oTO200 ! 
=T+1 


240 FORI=1TOLEN(F$) 
250 CS=MIDS(FS.141) 
260 C=ASC(C$) 


278 P 
280 T 


OKET, C 
=T+1 ` 


290 NEXTI 


392 I 


FL=7THEN160 


310 FORI=LTOL 

320 POKET, 32 :Т=Т+1 
330 NEXTI 

348 GOTO168 


18808 
1995 
1010 
1020 
1030 
1848 
1858 
1868 
1865 
1878 
1975 
1080 
1090 


71199 


1110 
1120 
1150 
1200 
1210 
1220 
1230 
1235 
1237 
1248 
1250 
1235 
1260 
1278 
1289 
1283 
1285 
1287 
1298 
1300 
1210 
1320 
1500 
1519 
1800 
1810 
1820 
1830 
1835 
1840 
19288 
1918 
1928 
1938 
2008 


2010 
2020 
2030 
2100 
2110 
2120 
2130 
2140 
2150 
2168 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2298 
2300 


Т=29672:С=65:А=1 

Р=РЕЕК (Т):Е(А)=Р 

POKET, С: РОКЕТ +1, 93 

T=T+32t1C=C+1:1AmA+1 
P=PEEK(T):1FP=96THEN1050 

GOT01005 

DIMFS(20):DIMNFS(20) 

Т=28673:С=1:ЕР=1 

ЕЗ(С)=*°* 

РОВ =1ТОВ: IF PEEK(T+J) *96THENNEXTJ : бОТО1 190 
РчРЕЕК(Т%/)11ЕР>95ТНЕМР«Р-0% 

ЕФ(С) =Е%(С) +СНАФЕР) 

NEXTJ 

C=C+1:T=T+32:FN=FN+1 
ТЕРЕЕК(Т)=95ТНЕМ115@ 

GOTO1065 

605082190 

FORI=1 TOLEN(BS) 1 АЗ = 1 ЧКЕ\У $ : АЗ = | МКЕУ $ 
PRINT3448,HMID$(B$,1,230). 

XsUSR(X) 

IFAS=* * THENNEXTI tGOT01200 
IFA$2*1*THENLD*1:GOSUB1900 

IFAS=* 2° ТНЕМ.0=2:605082000 
АтА5С(АЯ):1ҒА<5ЗОНА>ФФТНЕМ1 200 
А=А-64 , 
IFAX2FNTHENSOUND314,11GOTO1200 
FS=FS(A) Z 

1РР(А)=658, СЫЗ:РЯ1МТТАВ (6 } $" CANNOT LOAD DATA FILE! 91607015202 
60598198 

IFLD*1ANDF (А) =894ТНЕМЗ 
IFLD*1ANDF (A) =66ТНЕМ5 

IFLD=2THEN6Q 

IFF(A)=84THEN1O 

LFF (A) =66ТНЕМЗӘ 

CLS!tPRINT® IDENTIFICATION ERROR! !® 
STOP 
FORI*1TO31S0UND314,1124,21174, ^ tNEXTI 
RUN 
CLEAR15QQ!F$z *FILENAHE* t POKE30852. 80! POKE3O0B63, 52 
CLS:1DIRIDIMF(2Q0) 


sss s. ТУРЕ LETTER TO RUN. -..1-° | 
„НАТТТЕМ BY G.TUNNY (C)OPYRIGHT ° | 


3%=Вз+°1988........^* 
бвото1гаа ; | 
IF INKEY$<>* *тнЕм19@@ | 
PRINT3ASQ,' ТҮРЕ LETTER TO LOAD °1 | 
IFINKEYS=""THEN1929 

RETURN | 
IFINKEYSO**THEN2000 Ц _ __ 


PRINT3480,* TYPE LETTER ТО ERASE "3 
IFINKEY$*** THEN20ZO 
RETURN 

K=FN:FORI=1TOFN 
L$=LEFT$(F%(1)+1) 
L=ASC(L$) 
IFL*42THENNEXTI:GOTO2200 
Z9Z*11NF$(Z)eFSCID tFCZ)mF(CI) 
X=USR(X) 

NEXTI:GOTO2200 
SC221Y211FN*Z 
PRINT@SCyNFS(Y) 3° R 
IFY=FNTHEN2250 
Y=Y+11SC=SC+32 

60702210 

РОВІ ={ ТОЕМ 

FS(I)=NFS(I) 

МЕХТІ 

FORI=FNTO14 

PRINT3I*32.* 

NEXTI RETURN 


VZ 200/300 


40 КЕП UISISCRT 
ісі Sç КЕП FOR U7200/500 
Visisort бе REN ВТ P.J.SHEPPRRO 
. n H 82 CLS 
This progrom implernents eight 100 FRINT@200,“-=<¢ UISISORT 2«-" 
sort techniques at selectable 103 ? INITIALIZE VARIABLES, ETC 
В H 112 СГЕРК500:010459С20,22,84С13),568С122:Х1ғ-4092 :X2 -25:0s=CHR$(34 
speeds of which O is the fostest. 120 PP-26:N1-154:N2-252:N1-186 :N6 7411 :61720 :62-38:83-26 
Sort data can be either letters or 13а SOUNCO,S - 
1 140 CLS 
numbers which can be chosen 150 PRINTPRINT” & ó TS T S O R T av 
by the computer or the user. The — 
rogrom is opproximotely 5.6 k 100 PRINT! = --—----- -----'iPRINT 
p 9 pp y -120 PRINT" C11..ST&NOAKD BUBBLE SORT 
180 ЕКІМТ” C22..8UBBLE SORT WITH SINKER 
long and Ons on the vz 136 PRINT” C3)..SUPER BUBSLE SORT 
200/300, but not on the 200 PRINT” €4),.EXCHANGE SORT 
8 210 PRINT" (52..ОЕСАТЕО REPLACEMENT SORT 
unexpanded VZ 200. Instructions Boe PRINT Cai CEHECIETRORT 
to use it are contained in the 222 PRINT” C21..SHELL - METENER SORT 
248 PRINT" C85..QUICK - SORT 
program. 250 PRINT” С2)..ЕХІТ PROGRAM 
PJ Sheppard 262 PRINTS4SI,"SELECT SORT ROUTINE ..."; 
i. 265 USvINKEYS 
ristchurc 
2 | а 220 FOKJ-OTOQ :CHA3 7 INKET3 :JeC CHSC” 1 "JDORCCH42 797) J NEXT 
New Zealan 282 CH«URLCCHa) :IFCHeSIHENZ320ELSEPRINTCH 25005098, 2 ;2, 2 
790 CLS 
369 52508490 
212 FORK«QIONS:86CK)-735CK )S;PRINTE322K 32, 46CK) 5: NEXT 
328 NE-Q:NC-90 :N0=Q :NI=186 
332 ÍFNS»STHENHI-184 
335 ! SCRT STATUS 
348 PRINTG76,"NO CF ITEMS .. "OSING"32";NSr1 
350 FRINT81Q6,"----------------- .; 
380 БЕІМТО! 10, "COMPARISONS , rs 
328 FRINT4122, “EXCHANGES ... 0”; 
ЕТІ FEBRUARY “89 383 РЕІмта2а4,”----------- 
У x 
es 332 PRINT@736, "TOTAL ЕСТІСІ 9% 
19 12o 402 РЕІМТ8258,”-----------------»; 


425 > SORT ROUTINES 
418 IFCH=1 GOSUBI12IGECSEIFCH«2 GOSUB148GELSEIFCH#3 GOSUB1233 
414 IFCH=4 GOSU81599ECSEIFCH=S GOSUBIÓSOELSEIFCH-4 005081840 
418 IFCH=2 GOSUSIS7GELSEIFCH=8 605082129 
422 GOSCES^0 
PY 1 SË a 430 PRINTS300, "irriiirfiiixiiint'; 
5 440 РРІМТ8332,”2 SORT COMPLETE f”; 
450 PRINTQ264, "E£f321210: 12 : 91123"; 
480 ГЕІМТЯ423, “RESORT ORIGINAL”; 
422 PRINT@461, "LIST......CT/N2" ; 
425 O*-INXKEYS 
480 FORJ-0TOQ:RFS-INKEYS :JeCCREF8 <> "T" )FNOCRF Ф O "N* ) ) : NEXT GOTO! 40 
485 SOUNO20, 1 
4230 IFRF$-"Y*THEN2SQ 
435 ' SORT DATA 
500 FF-a:NSe-"" 
310 PRINT"HOU MANY ITEMS TO SORT” 
520 PRINI"SELECT BETUEEN 4 AND 14 -- *; 
523 D4-IMKEYA 22556-77 
5308 sSs8-INKETS #500408, 
535 IFSS&-""THENS?SELSESOUNO?Q, 1 
Зав 17558-71 "АМОМ$ 6 <" )" THENNSS -NS$ 0556 :FF ol :PRINTSS& ; 6010532 
$30 IFFF-LANDCSSS4"O"DRSS42 " 4” JORFF-QRNOCSS& C"4"0R 55827371, 320 
$60 PRINTSS4:NS£-NSSTSSS :NS-URLCNSS]-1 
522 PRINT:FRIMT"SUPPLIEO BY COMPUTER OR USER ?* 
582 PRINT"PRESS "Q&*C*Q0£" OR ”Паа”и”0е”...%; 
585 O4-INKEYS :RIZ-INKET& 
$30 IFRI&-"U^THENOÓSGELSEIFRIS-"C' THENPRINT*CODPUTER"ELSESES 
$35 ' COMPUTER CATA 
бас PRINT;PRINT"NÜCBERS DR LETTERS?" 
6180 ГВІМТ”РЕЕ55 "O4*N"O4* OR "Qs*L"Os",,."; 
615 Ds-IMKEYS 
620 FORJ-aTOO :Rs-INKETS =) “CORE O “N” )ANDCR& O "C" )) sEXT 
632 IFR&-"N^"THENPRINT"NOGBERS"ELSE IFR&^"C" THENPRINT"LETTERS* 
635 $00308, 1 
642 FORK-OTONS 
652 IFR&-"C"THENS&CK J-CHRSCRNDC26) $64 JECEESECK J-S T R&CRNOUS 7) #10) 
660 МЕХТК 
620 сото25а 
675 › USERS DATA 
632 CLS 
639 PRINT"ONE CHARACTER PER LINE NAATAUNY 
299 FRINI"CLETTERS OR NUMBERS ONLY)” 
210 FORK-QTONS . 
220 PRINI"ITED a"K*- "; 
225 Ds"INKEYS :FORJ-QTOO :S&CK)c Iti EYA 
230 J-CS&CK ) <" JORC"2* GS8CK  )JORCC* 3" G34 CK) )RND(s e СК) C872 
235 NEXT 
248 PRINTSECK) SOUNDZB, 1 :МЕХТК 
250 RPe-"N* 
262 CLE 
720 RETURN . 
280 PRINIQ326,"PRESS RETURN? TO”; 
796 PRINTQ428, "START THE SCRI..."; 
235 Os-INKEYS 
BAA KIc-INKcCTS:IFKIS$QO CHR&C13)THEN89O 
810 50508990 
915 ? SORT SPEED 
$20 PRINI4330,"SPEEDO БЕТ AT 1-"Б0К(Х1/252; 


530 
846 
$56 
BEG 
865 
870 
58@ 
взе 
зас 
318 
32и 
эзе 
340 
350 
S60 


378 


зас 
330 
1020 
1013 
1022 
1030 
1942 
1250 
106и 
1622 
79 
1632 
11й@ 
1:10 


"2 гея 


РЕ]МТ@428,"0 - 9 ALTERS SPEEO"; 
PRINT&460,Ca". "Cà" STOPS FPROGRAN" 3 
RETURN ” 
ЕОР572-1102:9КІМТ9268:5С3%22,7 

RETURN 

u POINTER ROUTINE 

vt) SPRINTAN], USING" вая" SNC 

ме МЕ :PRINTGNZ, USING! ади” зму 
РКЇМТӨЗСАА+РК, "т" у 

РЕЈМТЫЗ2АТЗРР, “ten”; 

FORTI-1TOX1:NEXT 

PRIMISS2XXTPP," — ti 

PRINTéSZEYSPP," “j; 
D$«InrzY& Wee IKE YS 

ТЕЫ$ O " " THENX] Јаше) 2X25 :X2 - SQR X12: 
PRINTGENG, VAL (E22 } 

1Рыфя", "ТНЕНВО$ИВ8 68 :РВ 1474333, 'SCRT - 
TERMINATED”; “6070480 

RETURN 

| “5ШІТСНЕН” RUTINE 

FORK-ATO4 
PEINTROTEIfK T3272," 
PRINTS372XJ:K «R1, " 
WEATK 
URINT827£14:27," 
Гғ-1-1 

FORK~) TOOF 
PRINTaQ¢2 с: 

I RINTO2TEC 


vas (li; 
"02(J21 


"ascl): 


FORTI-iIOXx?. 

FRINT@32X%25-r 113482," “% 
PRINT? ж-м. h 54642 
КЕЛТЕ 

FCRK=2471035STZEP-1 

FRIST 422,821, = 


7а6Ғаі32,25533" ” 
NEZTE 


2 МЕМЕТ: 


CRINTANR USING" лиг” чє; 
ТЕг-енФГІс:е4:12-66522.46012417Е2 
RETURN 
IPRINTGT,'0--—--- BUBLE SORT ------- 
52508280 
Есе 
FORI-0TOMS-1 
Kolii-DpriiTes.GOSUScRC 
ТРАЕ) 4-14 ()2ТНЕН! 299 
Feel 
24581209 
NEXT? 
ie Fie) THEN] 236 
52228422 
RETURN 
9Тм “serene SUPER BUBRLESORT е. 
40229280 
48-1 


-GOSUSESÓO 
АРАГЫН ЕУ 

522082209 
11-7 
ir TeOIHENI 450 
141:1-1-2 
se AR TD Cer 
Sia ega 
4210622 
dm 
WEATI 
ETURN 
NIQ2,"- ВУЗЫ, 2247 


T 


2221нЕйіз го 


WITH SINKER > 


FIRI T 

Anriilclii.Yed.oacSUBea2 

SLT Kora C SI THENISSO 
f -J :GOSUS 10093 

NexTI 

iF PL) THEN] 502 

7.515127 


3 RETURN 


2 of a 


sPRINTOT, “------ EXCHANGE 
бохив?ва 

гОК:=616м5-1 

FORJe] +i TONS 

m] :Y::J :60SUB53388 
1Ғбғ2125-А62227НЕм1560 


SOR! Serene, 


? 205181000 


МЕХТЈ, ! 

GOSLB47@ 

RETURN 

SPRINT #2," == DELAYED REPLIATEMENT SORI "= 
п0<08258 

SCRA: J =e] 

OE 

IFi-STHENISTwC 
Jesli:RwJtl 

R: GOSSE 3 

Ria wal Sime) 738 


Rr i TER <=: 
е-ТнЕем1222 
3.082003 


-ORIN ӨС, "seewewem SHELL SORT see 
50508782 


! NS 


= 1471/22 ПРИСОТНЕМ1 3S2 
ней 
DengFLeO:JeIMs 4 1:Y2J 550508898 
TF ASCII) Cena (Cs THENI 920 
525081009 

Fle) 

нент] :ТРЈ ONS THEN? 898 
TEFL™1ANOM71 THEN: ВЕРЕС 51876 
60518479 

RETURN 

PRINTZ, "mæ SHELL - ПЕТЕМЕЯ SORT ==" 
52508258 

hans 
He0INTCDZ^2):1Fn-0THEN2108 
F"NS-Á 

н»2 

Ten 

Jels:Xel:Y-J:GCSUBS882 
1Ғ66212х-ғ48С22174ЕК2089 
505081020 

21Ғ1>-0Тнем2040 


ІЕН>РТНЕМ2000Е1.5Е20232 

695118420 

RETURN 

ІРКІМТа?,“-е--е--е- QUICK SORT v------- 
CDSLB280 

11-9:11“ч5:Р-З 

PRIST@330, "STACK COUNTER. “USING 142* ;P 
tari 

PRINTa222, "St PER-RECCRO. , 
1ғ-11.5ғ-1 

Z=] :Y^J:607U8380 
ІРО 1525-88 ETH 
cO3UB1200 

5-5 

TES@i THEN! ©}  1Е(5Е21е1-1 
IFIOTHEN2:S2 
IFI+2>:11FBEN222Ə 
Р-Ғт»1259(Р,12е1%1:591Р,22-11 
2141-1 

ІРІ Ө1Тисм2 25 

IFP=<OTHENI28 
11“592Р,12:21-592Р,23:Р-Ғ-1 
50707158 

Ы 9394 
ILERRSO:ZLS:END 


.7а6210 


Ен2220 


ЕТІ FEBRUARY “89 
120 


ЖЖЖ RESTORE FOR ,%-200/300 Xxx 
ТРАТА 2375515335" 21s 205; $4527) 210,72 1733 


BA 294 503253. 129. 
2 ЕОК0=313897031404: 
3 PDKE32862,152:PDKE30863, 122 


> 


Hint for У2-200/300 


EVER wanted to restore to a 
particular line number? This short 
routine will let you do it. In VZ 
basic, RESTORE simply sets the 
DATA LINE POINTER to the byte 
before the first program line. This 
routine makes the line number in 
the .statement X=USR (line 


number) and calls а ROM routine . 


to find the line in memory. It then 


£ TT Nw 39. 


201 
RERDR :РОКЕЧ, A:NEXT 


moves back one byte, and stores 
this as the new DATA LINE 
POINTER. 

An undefined statement error 
is given if no such line exists. This 
routine is stored in the cassette 
name buffer, but can be stored 
anywhere in memory. 

Shane Rowe, 
Spring Hill, Qld. 


ю 73, 


7492 ED 58 >, 


19 LD DE, (таан) > ps no. passo by usa) inh DE. 
1441 CD 3C В CALL 1B82CH ; Sench АЫ ГӘ DE 
AA i 
7 4 D2 24 М IP NC, 4EDqH PRI. lo ÜZ error handling E 
: 1524 Fe: doeal cast | 
"hub oB DEC Bc > pol 1, Previous byte. 
TARAS Æ «3 ff. LD (7s Рен) bC ^ ex byte "Ы DATA LINE РТА 
qAAC Са RET то, + ÉAsic cod will DATA 


ү ғ. be RES тоқ ED 


NB, х4 pies sed 3. 7Аа». 


1842--АЯс is Cass e bls; J^ Coms, Afta, 


Hex/dec апа dec/hex conversion 


THIS short VZ listing does exactly machines. 
what the name suggests and it 
can easily be adopted to other 


Dra, 


ü РЕМ HEX-DEC Tü ГЕС “НЕХ COMMERZIOH MEITTEN 
1 FEM COCQOPYRIGHT G4 HIS PROGRAM Л 


Ет 
T 
2 REM HESAGECIMAL TO CEC IMAL аны VICE VERSA .] 


3 REM FOR THE VzZ-zGB AND WZ-200 БЫТ CRM EE VERY 

4 REM ТО OTHER MACHINES 

5 БЕМ---------------------------- 

Е Нф-"В1234567ФЭНЕСОЕЕ":ЕРШей:ЕРФ-"?ЕРВОЕ":БЕ-65526 


? CLS:PFRIHT"IZISEZAI ZUR оғ лам A Ei" 
5 FRIHT"MREITTEH EY CO. MAUMOER"” 


3 PRINT 

18 PFRINT"HHICH:" 

11 PRINT" 1 HEZRDECIHRU TO GEC IMAL" 
12 PRINT" . & DECIMAL TO HE#HDECIHRL " 


FFIHT" 3 ит" 
IHFUT"7";hR 

ІЕН-ІТНЕНІЗ 
[ЕН=ЕТНЕНЕЯ 
ТЕЯ=ЕТНЕНРОНЕЗ НЯ, 132 


UI ерата On 5 


затор 

TLS: 

PEIHT" HEXRHDECIHMRL TO БЕСІНЕ" 
FRIHT" RETH = COHTIHLE = = БЕШЕТ" 


PRIHT: IHPLT"HEZÉ";H&: IFH$z"-"THEHT 


ROTO PIAS po Pi pa на ан 


2 GOSLE4A: ТРЕРУТНЕНРРІНТЕЕФ GOTOZZELSEPEIPT"DECÓ-";D 
4 О=ТНКЕТФ : D ESIMEEYS: 1ЕП®=""ТЫЕНДА DTE 
б IFDB-"-"THEHT 
б IFGSsCHESC I23THEMZZ 

су вито 

CL 
ЕРІНТ" CRCINAL TO НЕЗВОЕСТНЯЕ» 
PRINT" RETH = CONTIMUE - = ABORT" 


PRINT: ТНРУТ" ВЕС" ;Н 

те ТЕК ВОЕН 55З5ТНЕНРЕТНТЕЕ$ . 507051 

22 FORTH=1704: GOSUG46 : HENT 

34 PRINT" HEN#= "GH 

35 НФ="" 

Os IHEET:GS-IHEEYE:IF2OS-""THEHDZE 

IFigz"-"THEH? : ope 
22 IFGb-CHRESGI133THEHZ1 

та GOTIESE “ай” 
46 ЕР=: =й: Ни ЕН Hf 20: IFLHZ 4 THERES 
M Өлі АНЫН д o -HIDSCH$, 1%. 1 5 

42 =" 0" SH ippa а" DRE zsngn 1 =e при зт; EST EDS 
45 JXeRGCCBS2-45: IF Jx>ƏTHEN ыт Бөз "F нымды 
44 D=D#16-+._ НЕЗТ:РЕТМШЕН 


S ЕЕХ-І:БЕТМЕН 
47 ReIHTCHz18 1: ZH- LEER: HsMIDSCHS £217. 1 22$: M= RETURH 


ETI Nw 26 c. 5. 


David Maunder, 
Quirindi, NSW. 


gen МЕНЕЕ, 


Greg Baker explains how 


DINGS 


Directional beam antennas are useful 
for CBers and SWLs alike. Greg Baker 
describes a simple home computer 
program to tell you where to point 
your beam. 


With the freeing of the rules on CB 
antennas, the use of directional beams 
has become an option to push a bigger 
signal just where you want it. The prob- 
lem, of course, is to know exactly 
where to point the beam when you 
have it set up and connected to your 
transceiver. 


Browsing through a road map or at- 
las will give you some idea of where to 
point, but, if your beam is efficient 
(which means that it will have a narrow 
directional lobe) or you want the big- 
gest possible DX signal, a great deal 
more precision is needed. 

That precision can come from mess- 
ing around with a calculator and set of 
formulas, but, it can come far easier 
come from a home computer...and 
now that we al! have computers or ac- 
cess to them, there’s no excuse not to 
be spot on with your beam headings. 

So, push the kids off the computer 
for a couple of hours and tell them to 
kick a football around the yard instead 
of playing computer games. Then type 
in the program listed over the page and 
run it on your favourite DX targets. 

It you and the machine can't get on, 
call the kids back. They'll love to lord it 
over you and tell you what to do. Let 
them enjoy it, it's good for them. They 
can have the ego trip....all you want are 
the headings. 


PROGRAMMED IN BASIC 

The program is written in BASIC, the 
standard home computer language. 
There are no fancy features used, so it 
should run without modification on 
most machines. It has been developed 
and tested on the Dick Smith VZ200. 

As it is listed, the program assumes 
you are in Sydney. If your base station, 
or mobile for that matter, is elsewhere, 
replace line 40 with your latitude in 
L(1,1) and longitude in L(2, 1). 

Remember the sign on the lati- 
tude. 

Remember also that latitudes and 
longitudes are the usual way to pre- 
cisely locate a place on the face of the 
earth. Latitude is the number of de- 
grees north or south of the equator run- 
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ning from zero at the equator to 90 
degrees at the poles. Longitude is the 
number of degrees west or east of the 
north south line running through Green- 
wich in England. 


PROGRAM: 

10 DIM L(2.2),D$(2) 

20 0$(1) = ‘ORIGIN’ 

30 0$(2) = ‘TARGET’ 

40 L(1,1) = -33.9 : L(2,1) = 151.2 
50 E = 57.29578 : PI = 3.14159 
60 PRINT 'NEW ORIGIN? Y OR N' 
70 INPUT Y$ 

80 IF YS <> 'Y' THEN 110 

90 K= 1 


100 GOSUB 350 

110 K = 

120 GOSUB 350 

130 Р = L(2,1) - L(2.2). 
140 PS = 1 

150 IF P < 0 THEN Р5-0 
160 P = ABS(P) 

170 PM = O 

180 IF P > 180 THEN PM = 1 
190 P = P/E 

200 PA = (90 - L(1,1))/E 
210 РВ = (90 - L(L,2))/E 


220 Z = COS(P)*SIN(PA)*SIN(PB) 
+COS(PA)*COS(PB) 

230 GOSUB 460 

240 KM% = 6366.7 * М 

250 2 = (COS(PB)-COS(PA)*COS 
МИСРА RE a 

260 GOSUB 46 

270A = M * 20 

280 А% = ABS(360 * (PS-PM): * 
(PS-PM) - А) 

290 PRINT ‘BEARING IS: '; A% ;' 
DEGREES’ 

300 PRINT ‘DISTANCE IS: '; KM% ; 
‘KILOMETRES’ 

310 PRINT ‘CONTINUE? Y OR N’ 
320 INPUT Y$ 

330 IF Y$ <> 'Y' THEN END 

340 GOTO 60 
350 PRINT DS(K);' LATITUDE?’ 
360 INPUT L(1,K) 

370 PRINT DS(K); “ LONGITUDE?’ 
380 INPUT L(2,K) 

390 FORI = 1 ТО 2 

400 T = 90 + (1-1) * 90 

410 IF ABS(L(I,K)) <= T THEN 440 
420 PRINT 'ERROR: TRY AGAIN” 
430 GOTO 350 

440 NEXT I 
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450 RETURN 


460 М = - ATN(Z/SOR(1- Z * 2)) + 
PI/2 


470 RETURN 


USING THE PROGRAM 

When you RUN the program, it will 
ask you whether you want to change 
the origin latitude or longitude. If you 
are mobile or a friend wants to use the 
program from his location, you can 
temporarily change the origin here by 
typing Y and INPUTing the new latitude 
and longitude. Otherwise type N to 
continue. 

The program then asks for latitude 
and longitude of the target. Type in the 
target latitude and longitude using the 
list below. Remember to type in the 
minus sign for latitudes from the list. 

If the target you want is not in the 
list, turn to an atlas or gazetteer (list of 
place names) and look up the latitude 
and longitude of the target you require. 

The program will function to and 
from places other than in Australia, so 
if you want to listen in to what is hap- 
pening elsewhere, use the latitude and 
longitude of the place you are interest- 
ed in. 


DON'T FORGET THE MINUS 
MARK 


Make sure all places south of the 
equator, ie southern latitudes, are 
input with a minus sign in front of 
them. Northern latitudes are posi- 
tive and thus require no sign. 


ORIGIN 


Sydney 
-33.9,151.2. 
Whyalla 
-33.0,137.6 
Geraldton 
-28.8,114.6 
end of chart 


: TARGET 


-Lismore 

..-28.8,153.3 
Adelaide 
-34.9,138.6 
Brisbane 
-27.5,153.0 


Similarly; places up to 180 degrees 
west of Greenwich in England should 
have a negative sign. All DX targets in 
our region are east of Greenwich and 
hence are all positive numbers and 
need no sign. 

You will need to convert the lati- 
tudes and longitudes you have found in 
your atlas or gazetteer to values which 
this program can use. Notice that the 
latitudes and longitudes from an atlas 
or gazetteer are written in the form of 
degrees and minutes. Convertthese by 
dividing the minutes by 60 with a calcu- 
lator and adding to the degrees. Thus 
Grenfell in N.S.W is 33 degrees 54 
minutes South, 148 degrees 11 
minutes East. The latitude to use in the 
program is 33 plus (54 divided by 60) 
which equals 33 + 0.9 or 33.9 and this 
becomes - 33.9 when you add the neg- 
ative sign for the south latitude. Similar- 
ly, the longitude is 148 plus (11у60) = 
148 + 0.1833 = 148.2 when you 
round it for ease of INPUTing. 

WARNING: The program may 
produce errors if your chosen target 
is within about fifty kilometres of the 
origin or you want to see if there is 
anyone at the poles calling СО DX. 

Still, in either case you wouldn't 
need this program anyway. Up to fifty 
kilometres you don’t need the preci- 
sion of this program, and for that lone 
СВег at the pole, just point your beam 
due north or south. And even then 
DoTaC rules mean you won't be al- 
lowed to reply to that plaintive call for a 
ragchew from the wilderness. 


TEST DATA 

When you have typed the program 
into the computer and double-checked 
that you have typed it properly, you 
should test it on the following DX 
paths. Note that for each of these you 
will need to change the origin latitude 
and longitude where the program re- 
quests it. You will also need to re-RUN 
the program for each new origin. This 
involves, at the end of each test path, 
typing N when asked if you want to 
continue. Then start again with another 
RUN. 


HOW TO USE THE BEARINGS 

The program will output the true 
bearing of the target from the origin 
and the distance in kilometres. 


BE DISTANCE I: 
(Kms) . 
49 -600 _ 


;156 


BEARING 
(Degrees) 


230 


12297 3748 ` 


ІҒуои didn't gettheseresults, you 
will find a typing error in your 


program. 


2.503. 


The distance is useful in finding out - 


whether the target is within the cover- 
age of the ground wave, in the blank 
area within the skip zone but outside 
the ground wave coverage area or in 
useful DX range beyond the skip 
distance. 

The true bearing differs from a mag- 
netic bearing given by an ordinary com- 
pass and it differs by different amounts 
depending on where you are. The dif- 
ference is called the local magnetic 
variation though sometimes it is called 
declination. 


To find the magnetic (compass) 


PLACES AND THEIR LATITUDE/LONGITUDE ` 
* Longitude. — 


Place Latitude 
А.С.Т..- 2 
Canberra -35.3 
NEW SOUTH WALES 
Albury -36.1 
Armidale 
Bathurst ` 
Broken Hill 
Dubbo. 

Goulburn 
Grafton: 

¿Lismore ^^ 
Lithgow 
Newcastle 
Orange 
.Sydney 
Tamworth 
Taree 
Wagga . 

Wollongong 


—А — — — ES 
ооо лат 
OMN 722 07: C ONDE к 
WRRONNANW 


, VICTORIA 
Ballarat 
Bendigo 
Geelong 
Hamilton 
Horsham 
Melbourne 
Mildura 
Morwell 
Shepparton 
Wangaratta 
Warrnambool 


QUEENSLAND 
Brisbane 
Bundaberg 
Cairns 
Gladstone: 
Gympie 
Mackay 
Maryborough 
Mount Isa 
Rockhampton 
Townsville 
Warwick 


SOUTH AUSTRALIA 

Adelaide | -34.9 
Mount Gambier -37.9 
Port Augusta -32.5 
Port Lincoln -34.7 
Whyalla ` `-33.0 


WESTERN AUSTRALIA 
Albany Я 

. Bunbury 
Geraldton 


_ 
DOBRRE 


ONONNSP»I 
NOW=BAO 


= 
+ 


А -— > А а а hb 
ор пыл лл 
Mo oU u: 
CHNNANAW 


осо» 
NANON 


p 


Kalgoorlie 
Perth 


TASMANIA 
Burnie 
Devonport 
Hobart 
Launceston 


NORTHERN TERRITORY 
Alice Springs -23.7 
Darwin -12.4 


ооо 


bearing from the true bearing output by 
the program, subtract the magnetic 
variation at the origin station from the 
computer calculated true bearing. Ap- 
proximate magnetic variations аге діу- 
en in the table of latitudes and 
longitudes below. 

Notice that when magnetic north is 
east of true north the variation is east- 
erly and given a positive sign. When 
magnetic north is west of true north (as 
itis in some parts of Western Austra- 
lia) the variation is westerly and given a 
negative sign. 

Regardless of the sign though of the 


Magnetic 
Variation ` 


` МІМНЕБОТА 

| BMIESISSIPPI 

| MISSOURT 

| MONTANA 

| NEBRASKA 
NEVADA 
NEW HAMPSHIRE 
WEN JERSEY 
NEW MELICO 
МЕН YORK 
NORTH CAROLINA 
NOSTH DAKOTA 
OHIO 
OKLAHOMA 
OREGON 
PENNSYLVANIA 
RHODE ISLAND 
SOUTH CAROLINA 
SOUTH DAKOTA 
TENNESSEE 
TEIAS 
{ЛАН 
VERMONT 
VIRGINIA —-— 
WASHINGTON 
WEST VIRGINIA 
WISCONSIN 
WYOMING 


рм лос № 


— — — d — — — үчү "Ке КЕ] 
-NNN WaN- 


a 


K64 GUATAMAMO BAY {KA-8) 
KGOR/S/T MARIANA 13. (0-27) 


= -. -à - — 
=“"MoOn]0-0N0—2 


KH2/KG6 GUAM (0-27) 
KH3/KJ& JOHNSTON 18. 10-31) 
KH4/KMG MIDWAY IS. 10-311 


KH HAWAIT 18, (0-311 
KH7/KH& KURE 18. (0-31) 
KHG/KH& AMERICAN SANOA 
KHO/KW6 WAKE 16. (0-31) 
KP1/KC4 NAVASSA 18. ІМА-8) 


KP3/KS4/HKO GERRANA BANK 
КРА PUERTO RICO (А-8) 

KP4 DESECHO 18. (NA-80) 

Кта MARSHALL 1B. (0-31) 

КІ PANAMA CANAL ZONE (NA-7) 


2 pb 


KCb EASTERN CAROCINE IS. (0-27) - 


КН1/КВ6 AMERICAN PHOENIX 15. (0-11) 


KHSKP& PALNYRA/JARVIB 15, (0-31) ` 


KP2/KV4 AMERICAN VIRGIN 15. (NA-B) - 


variation, you must add it to the true 
bearing to get magnetic bearing. To 
find the variation at origin s other than 
on the list you will need to use the 
nearest from the list or check out a 
good army survey map at your local 
library. 

Align the beam with this magnetic 
bearing, remembering to keep your 
compass away from such large 
amounts of steel as your car. Once you 
have found the bearings Of your most 
usual DX targets, mark them near the 
beam so that you can easily align the 
antenna next time. 


пішшептппопптассоса 


(SHORT. LONG. KILONETRES 
_ РАТН PATH (SHORT PATH) 


CENTRED. 
OW CITY: 


15017 , 
14982 
14984 
3622 
14559 
12740 
15738 
16493 
13223 
16561 
15981 
14450 
15784 
14222 
12760 
` 16223 
16764 
15918 
14447 
15389 
14226 
13428 
16644 
16877 
17880 
15882 
` {52% 
14005 
4529 
- 15834 
TINIAN 5421 
5554 
АРТА HARBOUR 524 
- us. 
- Tu 2197472555 
ч 71386: 
HONOLULU B648 
- А | 7989 
FAGATOGO 5200 `; Z: 
- 05.6 
= 15757 _ 
18839 
- 15042 
BAN JUAN 15543 
- 16418 
KWAJALEIN 5364 
- i 14754. 


255 
JEFFERSON CITY 24 
HELENA Mee 232 
LINCOLN 242 
“CARSON CITY t 238 
CONCORD 240 
TRENTON 2% 
SANTA FE 245 
ALBANY 24 
RALEIGH - 254 
BISMARCK 20. 
COLUMBUS 246 
OKLAHOMA CITY 248 
. SALEN 231 
HARRISBURG 
PROVIDENCE 
COLUMBIA 
PIERRE 
WAGHVILLE 
AUSTIN 
BALT LAKE CITY 
MONTPELIER 
RICINOND 
OLYAPIA 
CHARLESTON 
. MADDISON 
CHEYENNE 


Bint Services produce a computer based 'beam heading list' 
which has both short and long path bearings to a/l amateur 
callsign areas — cost for the listing (which is based on the 
lat/long of your QTH is $15. 
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САМЕ5 
Nov/Dec83 
Dec. 83 
Feb. 84 
Jan. 84 
Apr. 84 
Jul. 84 
Jal. 84 
Jül.. 84 
Aug. 84 
Aug. 84 
OGE - 84 
NOV. 84 
Jan. 85 

- 85 
Mar. 86 
_ 85 
Jan: 85 
Jan. 85 
Jan. 85 
Feb. 85 
Mar. 85 
Mar. 85 
Apr. 85 
Apr. 85 
Мау 85 
May/Jun85 
Jun 85 
Jan. 86 
Jül. 85 
Аха. 95 
OCE. 85 
өсе. 85 
Mar. 86 
May 86 
Jal. 86 
- 88 
- 88 
- 88 
- 88 
- 88 
- 88 
- 88 
- 88 
- 88 
= 88 
= 88 
Арт. 88 
Jul. 88 
Aug. 88 
Моу. 88 


Projectile Plotting (Grosjean) 
Missile Command. (Whitwell) 
Caddy and Reaction Test. (Hartnell) 
Graphic Sine Waves for VZ-200. 
(Nickasen) 

Moon Lander. (Alley) 

Blockout. (Pritchard) 
Battleships. (Carson) 

Junis Maths. (Carson) 

Contest Log VZED. (Carson) 

Dog Race VZED. (Carson) 

High Resolution Graphics Plotting. 
(Thompson) | 

Tips for ‘Ladder Challenge’, 'Panik' 
and ‘Asteroids’. 

БОКЕ”е БӨ “Ghost Hunter”. 

Golf Simulation. (McCleary) 

Golf Simulation, (MeCcleary.) 
Knight's Cross. (Lucas) 
Sketcher. (Leon) 

Punch. (Rowe) 

Space Station Defender. (Shultz) 
Lost: (Potter) 

Decoy. (Rowe) 

Mouse Maze. (Crandall) 

Painter. (Daniel) 

Roadrace. (Thompson) 

Number Sequence. (Thompson) 
Sketchpad. (Thompson) 

Morse Tutor program. (Heath) 
Morse Tutor - again. (Heath) 
Electric Tunnel. (Daniel) 

Number Slide. (Daniel) 

Cube. (McMullan) 

Yahtzee. (Thompson) 

VZ Frog. (Alley) 


Balloon Safari, The Drop and Flatten. 


(Sheppard) 

Simon. (Proctor) 

Drawing Program. (Winter) 
Tea-pot Song. (Winter) 

Ping Tennis. (Duncan) 
Concentration. (Vella) 

Super Snake Trapper. (Duncan) 
Worm. (Thompson) 

Dogfight. (Thompson) 

Bezerk. (Banks & Saunders) 
Arggggh! (Banks & Saunders) 
Encode/Decode. (Banks & Saunders) 
Catch. (Banks & Saunders) 
U-foe. (Alderton) 
Disintegrator. (Stibbard) 
Star Fighter. (Roberts) 
Drawing Board. (Maunder) 
Camel (Maunder) 
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Plotting а Projectile 


David Grosjean 


In this issue we will compare pro- 
gramming the VZ200, the color and sound 
computer by Video Techonology, and the 
Т51000. The project we will undertake is 
the plotting of a projectile. 


Starting with a Clear Screen 

Let's start with a simple clear screen 
and plot statement. 

TS1000: 


19 CLS 
200 FLOT X,Y 


VZ200: 


5 CLS 
40 MODE(1):COLOR 4 
200 SET(X,Y) 

If you look at the VZ200 program, you 
will notice that the computer has to be 
put into a special graphics mode with line 
40. This means that you cannot have the 
medium resolution graphics and text on 
the screen at the same time. This will 
become a problem when we try to turn 
this into a game. 


The Projectile Equations 

The equations for the horizontal and 
vertical position of a projectile are: 
X=V*COS(A)*T 
Y=V*SIN(A)*T-1/2*G*(T*T) 

V is the velocity; T is the time; G is the 
effect of gravity. These equations can be 
worked into the program like this: 


TS1000: 

22 LET Әзіз 

За LET D=S? 

40 LET 8-4 

58 LET Cya _ A/D} 

62 LET Cis R DJ 

88 FOR T=Ə TO 44 STEP .5 
әд LET X=C1sT 


10 А=45 

20 V=1000:G=32 
SO D#57.3 

50 C=V&SIN(A/D) 
60 CizY£$COS(A/D) 


Р 22-24 


80 FOR Т=0 TO 45 STEP .5 
90 Х-СізТ 

100 YzCX*T-16XTXT 

180 Х-Х/250 

190 Ү-Ү/250 

220 МЕХТ Т 


Ав you will notice, the range оп the 
VZ200 increased due to the higher reso- 
lution of the graphics, but we did not 
change the velocity of the projectile. 
Instead, we changed the number which 
we divide X and Y by to fit the projectile 
on the different screen size. 

In these programs, D is a factor that 
converts degrees to radians which are 
what the computer wants. С and СІ аге 
constants for each firing angle. When you 
RUN this program on the VZ200, you 
will notice that the plot is upside down. 
This is because the vertical distances are 
measured from top to bottom instead of 
bottom to top as on the TS1000. Change 
line 190 in the VZ200 program to 


190 Y-61-Y/250 


Setting the Gun Angle 
Now we can modify the programs to 
accept a gun angle from | to 90 degrees. 
TS1000: 
40 PRINT "ANGLE OF GUNT" 
45 INPUT A 
70 LET Т1=2+6/3 
88 FOR T=Q TO Т 
220 GOTO se 


VZ200: 


10 INPUT "ANGLE OF GUN";A 
70 Ті-2%С/б е 
ВО FOR T=O TO Т1 STEP .5 
250 GOTO 50 


Making а Game 

Now that we have a working, however 
simple, projectile program, let's try to make 
a game out of it. The following games are 


our projectile programs tightened up a. 


bit and with the provisions for a target. 


Setting up the Target 

On the VZ200 the range is 127,000 fee 
and on the Т51000 32,000 yards (1000 
yards for every horizontal position on the 


screen). This will throw the equation off: 


a little since the gun cannot shoot the 
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projectile 127,000 yards. (If this bothers 
you, think of the yards on the VZ200 as 
11-inch feet.) 

Although there are 64 pixel positions 
on the TS1000, the target is а T which 
takes up two pixels. You can hit the left 
or the right of the T so the number of 
effective horizontal positions is reduced 
to half. Notice that, since the VZ200 cannot 
have text and graphics on the screen at 
once, line 100 forms a special target, while 
on the TS1000, a simple PRINT AT com- 
mand in line 60 does the same thing. 

TS1000: 

ze LET Vsieae 


40 LET K=INT їт@@б@+Б 
5а CLS 
= 


чор +1208а 
ES PRINT AT SI INT 
PRINT АТ 
INPUT 


ma 
<= 


ey 


зЕ@дад z 
ікгізәді; "Т 


OF GUNT 


ғ 
© 


1,0; "ANGLE 


(ne conn ca 


ap Ren 1 
© сусу су C2 


FLOT х,у 


30 NEXT T 


VZ200: 


20 V=1000 

40 K=INT (970003RND (@) ) +50000 

SO PRINT "RANGE = 127000 YDS" 
60 PRINT "TARGET AT"iK;"YDS" 

70 INPUT "ANGLE OF GUN";A 

80 IF А<1 ОК А>89 THEN 70 

90 MODE (1): COLORS = 

100 FORL=1 TO 4:FORL1i=1 ТО 4:SET 
(INT (K/1000-4) +L1,59+L) : NEXT: NEXT 
130 С-У%бІМ(А/57.5) 

140 С1=9%С05(А/57.3) 

150 Ті-2%С/32 

160 FOR Т-О TO T1 STEP .5 

170 X=C1+T/250 4 

180 Үс-б1-(Т%(С-16%Т) /250) 

190 БЕТ(%, Y) 

210 GOTO 210 


Detecting a Hit 

We now have,a target, but it is of no 
use unless the computer can detect its 
destruction. The following lines detect a 
hit. Notice how the techniques of detecting 
a hit target differ. The VZ200 must com- 
pare each position of the target, which is 
four positions wide, with.the last position 
of the projectile; the TS1000 does the 
same thing but uses the PRINT AT position 
used by the target to compare to the last 
position of the projectile. This is, of course, 
simpler. Line 300 in the VZ200 version is 
a special "explosion" accompanied with 
some sounds. You can experiment at this 
point to find a better explosion. 

TS1000: š 


(каа) T 


БОТО 52 
(PRINT AT 21,INT (K71000) -2; 


FAUSE 252 
` GOTO зе 


VZ200: 
220 FOR L=1 TO A:1F INT(K/1000)- 
L=INT(X) THEN 300 


24 а of 2. 


Е 225 NEXT L 
250 GOTO 50 
ЗОО FORL-1 TO 30:SET(40+87#RND(O 
),40*«22X*RND(O)) :80UND31, 1: МЕХТ L 


510 PRINT "HIT! HIT! HIT!” 
340 GOTO 30 
Making the Next Shot 


Now we can add the response the com- 
puter will make to a missed target. The 
following lines tell how far away your 
shot was from the target and lets you try 
again. Line 210 in the VZ200 version is a 
delay loop so you have time to see the 
last position of the projectile. 


TS1000: 


t{K-iGeQ@@eSIN 1.2 


THEN PRI 


z 


ыт HT 0,0; 


AT @,а; 


VZ200: 
210 FOR L=1 TO 3000:NEXT L 


230 IF INT(K/1000) >X THEN PRINT 
“UNDER BY";K-X*1000; "YDS" 
240 IF INT(K/1000)<X THEN PRINT 
"OVER BY";X*1000-K; "YDS" 


Providing Your Shots 

The computer can now detect hits and 
misses. This is where the game part comes 
in. The following lines provide you with 5 
individual targets with a maximum of 5 
attempts to hit each target. If you fail to 
hit a target in 5 shots, you lose. S is the 
number of shots you have taken per target; 
$1 is your total number of shots; and Z is 
the total number of targets. 


THEN COTO 260 
$141 


$=5+ 
8 PRINT AT 0,0; ENEHY GOT YOU 
DE 


SOTO 27 


VZ200: 


10 51=0:7=0 

30 5=0 

55 IF S-5 THEN 260 

110 S=S+1 

120 51=51+1 

260 PRINT "THE ENEMY GOT YOU FIR 
ST!" 

270 GOTO 370 

320 Z=Z+1 ‚ 
330 IF 72-5 THEN 350 


Evaluation and Restart 

Finally, we need an evaluation and a 
mechanism to restart the game. The follow- 
ing lines do this. 


TS1000: 


PRINT AT @,8;52;" ROUNDS us 


IF 51512 THEN PRINT “GREAT 
THEN PRINT “YoU CA 
‘LAY RGRIN? “ 
' THEN RUN 
350 PRINT 81;"ROUNDS USED" 
555 IF 51<10 THEN PRINT "GREAT J 
OB!" 
360 IF 51>15 THEN PRINT "YOU COU 


LD HAVE DONE BETTER" 
370 INPUT "PLAY АСАІМ";2% 
380 IF 2%="Ү" THEN RUN 


Improving on the Game 

Of course, these artillery-type games 
are very simple. They provide a basic 
game which you can elaborate on or 
experiment with to develop different pos- 
sibilities. You might want to improve on 
the graphics or sound on the VZ200 or 
perhaps make a really BIG explosion. 
Although the TS1000 has no color or 
sound, the program can still be greatly 
improved. You could add hi-res graphics 
through either a hardware add-on or a 
software program. You might want to add 
a sound unit which will give the sound 
effects or add a routine to provide some 
sound (e.g., AUDISY). 


November/December 1983 9 SYNC 


Missile Command 
by Keith Whitwell 


G: LEFT 
H: RIGHT _ 


This is the first program we've received 
for the VZ-200 and its from someone 
who's only in grade 8. It is a Basic version 
of the famous arcade game of the same 
name and uses the following keys for 
control of the “cross-hairs”: 


F: FIRE 
U: ACCELERATE 
N: STOP 


Other instructions are included in the 
Y: UP elu. š : 5 
listing. 


B: DOWN 


REM MISSILE COMMAND, KEITH WHITWELL, &F. SPLC, 31/18/83 
CLS:PRINT" BESINI ИПИЕ" PRINT 
PRINT " BY KEITH WHITWELL, 8F, SPLC.":PRINTTABC 13271983" 
PRINT:PRINT 
PRINT: INPLIT" INSTRUCTIONS"; AS: IFLEFTSCRS, 1 52" Y" 
THEN 50518 3400 
INPUT"LEVEL OF SKILLC1 (V.HRRD2-45";LS:IF 1524 OR L&1 THEN 5 
FOR 1=1 TO 4:C¢1)=1:NEXT 
GOSUB 2999 
Я=63.К=32:5=6 
МОРЕ 1>:COLOR 4,1 
МІ-й 


D< 
MH H 
on 

® 


ого) 
DN 


ETK X, INTC 2): Y=Y+. Аз: IF INTCY У» 


- 7) € 
2 = =: оз 

m 

Ra 


С OLOR 6: 
XA-R:Y-K 
НФ-ІМКЕҮФ 

Я$= Ш nd " 
Я$= и В " 
Ag="H" 
Я$= d ES " 
А$= " F " 
Я$= " L " 
Я$= Ш М " 
X*tM»1200R Y*N? 
COLOR 1:GOSUB 1 asa: 
COLOR 4:РОЕ I=1 TO 4: 
:IF J=@ THEN 2-1 
IF XIJ OR Х612%12120 THEN J=-j 
XC I-XCIOÓ 
P=POINT СЖІО,ҮСІУУСІН Р=4 THEN COLOR 4:GOSUB 1204 
IF Р=2 THEN COLOR 4:GOSUB 1500 
| COLOR 3: SETC XC I5, УЕ I22: COLOR. 4 
NEXT 
GOTO 104 


СИЕ 
ЛЕЛ 


XX mmo [MD H 


А+ 
ер 


Dm.. 
m 


:GOSUE 1198 
1360 


roonwwn 
BOAT рн | 
< 


e - 
x =o 2: Z: 


ZAQOBZAZZZ 


нон 


5 ОК Х+М<5 ТНЕММ-0:М-й 
YAN: COLOR 2:GOSUB 1050 
I»1:.J2RNOC22-2: 


тш 


= W 
ALNA 


APC Deta aba) Kinti 
1. ор 20. 


ОНТН1,18,1,1,13.2,15,127,2.1.13,3.16,16,3.1,7.4.9, 
12,4.4. 7.5 > 
DATA 9,12,5,4,7,6,9,12,6,5,6,7,10,11,7,10,11 
CH=CH+1: IF СССМО-й THEN RETLIRN ELSE 5С-5С%10 
COLOR 6:FOR 1=1 TO 14:RERD R.T," 

FOR H=R TO T:SETCX*H, Y-V >: NEXT: NEXT : RESTORE : COLOR 4: RETURN 
FOR Н=-1 TO 1:SETCX*H, Y*12:SETCX*H, 77-12: NEXT 

SETCX.Y-120: СЕТА, Y+1 3 

RETLIRH 

REM 

КОБЕ TO 4:IF ЖХ11Х<Х85 AND XC1>>X-LS THEN 1103 

NEX 

IF YCIOXY4LS AND YCIÓ2Y-LS THEN 5-5%1:5Е7(5,622:60Т70 1110 
RETURN 

IF S=SN THEN R-X:KzY:GOTO 2200 

FOR E=1 TO S:SET CXCIO-E,YCIDD:SETCXCIO«E. ҮІ) 

SETCXC I2, YC 12-Е >: SETCXCIO, УСТ +E 2: NEXT 

XC I D=RNDC 118 2+6: Y< 1226 

IF M=-1 THEN М--4 

IF M=1 THEN M=4 

IF N=-1 THEN N=-4 

IF N=1 THEN N=4 

RETLIRN 

IF X€1)<2@ THEN C(1)=0 

IF Х<12>33 AND х<12<53 THEN CCc2»-a8 

IF X£19>66 ANC Х<12<86 THEN С(СЗ32-0 

IF XC 122100 THEN C64 >=@ 

FOR C=1 TO 4: IF ССС =@ THENF=F+1 

NEXT 

IF F=4 THEN GOSB 1200:60Т0 2100 

F=@:GOTO 1200 

FOR 1=1 TO 4:XC I»-RNDC 110245: YC 1 D=RNDC $ +6: NEXT 

RETURN 

FOR F=1T03@: < I >=ЮНОХ 1805410: C I22RNDC 40 +39: GOSUB 

1200: HEXT 

5Г-5С%5 

FOR 1=1 TO 18800:NEXT:CLS:PRINT864, "PNA" SC 

IF ©С>Н5 THEN PRINT "ҮӘЛЕНГУІУ ЗЕ ТНЕСВЬН МА ВЕТ :HS=S 
PRINT :PRINT"58G8SEZSAIIBORES T2232 (ETE НЕН СВИЕМ 

IF INKEYS="S" THEN 1 

GOTO 21280 

FOR 0-1 TO. SL-1 

FOR I=1 TO 4:IF С‹1)=0 THEN CCI 9=1:1=9 

NEXT:GOTO 18 

CLS:PRINT" BESSI MPRI" 

PRINT:PRINT"YOLI COMMAND OLIR ANTI-MISSILE 

MISSILES. YOUR"; 


PRINT" JOB IS TO KEEP THEMISSILES FROM LANDING ON THE " 
PRINT"CITIES BY MOVING YOUR SIGHTS ONTO THE HERD OF "; 
PRINT"ONE ОҒ THE FOLIRMISSILES COMING DOWN AND PRESS "; 
PRINT "'F*, WHICH FIRES YOUR MISSILE. 

IF IT HITS, THEN "; 


PRINT"THE MISSILE WILL EXPLODE." 


PRINT: INPUT"HIT RETURN": AS 

CLS:PRINT" P9083 МГ ІШ": PRINT 

PRINT" Y Wa" 

PRINT" B 1009181" 

PRINT" - G Шалт 

PRINT" H НИЕ 

PRINT:PRINT" Е 19095" 

PRINT" | Плач" 

PRINT" N Fac" 

PRINT:INPUT"HIT RETURN"; AS 

CLS:PRINT" СВЕ9085 Mags" : PRINT 

PRINT"SCORING IS:" 

PRINT" 1 POINT PER MISSILE DISTROYED" 

PRINT" 10 POINTS PER CITY МОТ BLOWN UP" 
PRINT:PRINT"'OL WILL GET EXTRA CITIES EVERY" 
PRINT"SCREEN. THE NUMBER DEPENDS ON ТНЕ LEVEL OF SKILL." 
PRINT:PRINT"THE GAME ENDS WHEN ALL OF YOUR CITIES ARE"; 
PRINT" DISTROYED" 

PRINT: INPUT"HIT RETURN"; AS 

RETURN 


8 
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Two games 
to key in 


The following programs are reprinted 


with the permission of Dick Smith. 


Electronics from Getting Started (on the 
VZ200), by Tim Hartnell апа Neville 
Preteborn. 


Getting Started and another four. 


books written especially for the VZ200 
are now available in New Zealand from 
Dick Smith Electronics and its dealers. 


Out on the Fairway 

A golf game called Caddy. You have 
nine holes to negotiate, as you'll see 
when you play the game, the computer 
obligingly keeps the score card for you. 
After each hole, it will tell you how you 
are doing to date, and will work out your 
average score per hole. All you have to 
:do is hit the ball! if you overshoot, the 
computer will automatically make sure 
-the next shot is back towards the hole. 
You'l find it pretty tricky going, 
-especially on holes with a high difficulty 
factor. 
Here's the listing, golf pro: 


| 
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ВОО Г Г ГГ ГГ ЛИИ 


REM CADDY’ 

DIM Х(9) :С0=0: НФ= СНЕФ (216) 
U=224:L $=" 

FOR 2-і ТО 9 


50 SC=0 


SQQ 
7310 
520 
SS 
540 
S50 


560 


7576 
380 


590 


400 
410 


20 


) FRINT: INPUT 


J=RND (12) 

Q-RND (5) +2 
IF Q= 
IF @=4 THEN Q$="FDUR' 
> IF @=5 


S THEN O$-"FIVE' 


THEN 0%-"ТНКЕЕ" 
CLS:FRINT: PRINT 
IF Т-2 THEN PRINT "SCORE UF TO THIS 
HOLE ISX Uh) 
THEN FRINT “SCORE UF TO THIS 
HOLE TS" 
HOLE МОМБЕК"? ">>>" 
"DIFFICULTY FACTOR LS 


IF za 


PRINT "<<< 
PRINT: PRINT 
СОЗЫВЕ 430 


"OS 


"ENTER STROKE STRENGTH" 
зА: SOUND 31,2 

PRINT3U,L£$:1IF 2>24 THEN ñ=-ñ 

J=J+INT ‹А/КМР” (Ü) ) 

IF 2-24 THEN GOSUB 490 

IF 4250 THEN J-30: БОТО 

IF Jil THEN 4-і 

IF Js 224 THEN FRINTO3U-J-1.H$ 

IF 45>24 THEN FRINT3S252,L$: FRINT L$ 

SCc- SC+1 

ЕКІМТ 2448, 


205 


"AFTER THAT STROKE YOUR 
SCORE IS"SC 

FOR Е=1 TO 2500: NEXT F 

IF J<>24 THEN 110 


C=C+SC 
Х (2) =5С 
чо Е 1 THEN 590 
к= 
ee “THE GAME 50 FAR: " 
FOR J=1 TO Z 
K=K+X (J) 
PRINT. "HOLE"J" TOOK JUST" X (J) "STROKES" 
FOR М=1 TO 500: МЕХТ М 
NEXT J 
IF 7<9 THEN FRINT: PRINT "THE ONERE 50 


FAR IS"INT((K+.5)/Z) 

FOR Р-і TO 1000:NEXT P 

IF Z>i THEN PRINT: FRINT 
Z"HOLES IS"C 

IF 72-1 THEN PRINT:PRINT "THE SCORE FOR 
THE FIRST HOLE IS"C. 

FOR M=1 TO 2500: МЕХТ M 

NEXT 2 

GOTO 560 


"THE SCORE FOR" 


у2200 


4393 FRINTS196,"' 


480 RETURN 


S00 РКІМТӘ511,Н% 


550 RETURN 


590 PRINT: PRINT 

600 PRINT "ENTER "Y" 
“М: 

610 A$-INKEYS 


640 FRINT:FERINT "Ok, 


Testing your Speed 

Reaction Test, is great fun to play. You 
enter the program, type in RUN, and the 
message STAND BY appears. After an 
agonising wait, STAND BY will vanish, 
to be replaced with the words, ‘‘OKAY, 
HIT THE 'Z' KEY!''. As fast as you can, 
you leap for the Z key and press it, 
knowing that the computer is counting 
all the time. 

The computer tells you how quickly 
you reacted, and compares this with 
your previous best time. “THE BEST SO 

-FAR 1$...” appears on the screen, and 
the computer than waits for you to take 
your hands off the keyboard before the 
whole thing begins again. 

The game continues until you manage 
to get your reaction time to below 10, 
which is not an easy task. 

Line 20 sets the variable HS to 1000. 
The variable С is set to zero in Line 50 
and incremented by one every time this 
line is revisited, which occurs when you 
have not managed.to get to the 'Z' key. 
Lines 55 and 60 check to see if you have 
touched the Z key, and if not, send the 
program back 10 50 where C is 
incremented. 

Once you've managed to get to Z, the 
program 'falls through' to line 65 where 
you are told your score. This is compared 
with the best score (variable name HS) in 
the following line, and HS is adjusted to 
C if C is the lower of the two. 

The next line (80) puts in a short 
pause, and then checks to make sure you 
have taken your hands off the keyboard. 
It stays cycling through 80 and 85 until 


ххх бас ХМ КЕНО ООО ILI ОКА DELAY LPR Л МФИ SPP PRPS L ALLEGE PA 0095 03. kwa sa 


430 IF 4>50 THEN 4-50 


440 PRINT TAB(J-1);:H$ 
450 РКІМТ "SZHHHBBHHHHHHSTAHHHHZHSHHN. /HHHHHHO 
460 РКІМТ "HSHSHHHHBHHHHHHHHTHHHHHTHS. HHSTHHAHMH" 
4 7 O F R I N T MA ons ura urs utn, OC) urn un, arn ЦК 


CLE DECORE T1 


490 FRINT2416, "YOU DID IT!i" 


5109 FOR F=1 TO 500: МЕХТ P 
520 SOUND 21,4: SOUND 16.2: SOUND 16,1: 

SOUND 18,4:S0UND 16,4 ` 
550 SOUND O, 1: SOUND 20,4:S@UND 21,4 
540 FOR F=1 TO 2000:МЕХТ F 


S60 РКІМТ:РКІМТ "END OF THAT ROUND, GOLFER!" 
570 PRINT:FRINT "YOU SCORED"C 
S80 PRINT "AND YOUR AVERAGE WAS"INT((C*.5)/9) 


FOR ANOTHER ROUND, OR 
AU) LIT 


620 IF А%<7> "Y" AND АФ > 
650 IF А%="Ү" THEN КОМ 
THANKS FOR 

FLAYING, CHAMF" 

you take your hands off the keys. The 
NEXT W then sends the program back to below 11, the program continues 


through the NEXT to line 15 where the 
words “YOU'RE THE CHAMP!” appear 


the line after the FOR (line 15) and the 
next round of the game begins. 


as HS stays greater than 10 (as you can 


"N" THEN 610 


on the screen, and SOUND 31, 
activated. . 


s REM - REACTION TEST - 

TCLS 

10 LET HS=1 000 

15 FOR W=0 TO 999: IF Н5<10 THEN 90 

20 FRINTJ236, "STAND BY" 

25 .GOSUB 105 

50 GOSUB 100 

-355 IF A$z»"" THEN 25 

40 LET C=0 

45 ЕКІМТ9154, "OKAY — HIT THE "Z^ KEY!" 

50 LET C=C+1. 

55 GOSUB 100: IF C}=200 THEN GOTO 90 

60 IF АФ“>47" THEN 50 | 

65 FRINT: ‘PRINT "YOUR SCORE IS";C 

70 IF С<Н5 THEN LET HS-C: SOUND 50,2 

75 PRINT: PRINT "THE BEST SO FAR IS";HS 

80 GOSUB 105: GOSUB 100 

85 IF АФ“>"" THEN 80 

90 NEXT Ы 

95 FRINT: PRINT "YOU MRE THE СНАМЕ!": 
SOUND "51,5: END 

100 LET AS=INKEY$: RETURN 

105 FOR FzO TO 499+RND(999): NEXT Fs 
CLS: RETURN 


The FOR/NEXT continues only so long 


Joka 


see in line 15). Once you get a high score 
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Graphic Sine Waves for VZ200. 


By Dean Nickasen, Murrumbeena, VIC 


This program will draw sine- 
waves in the graphic symbols of 
the VZ200. Lines 10 to 90 input 
the values for the sinewave. 
Lines 100 to 200 plot the graph. 
The purpose of line 210 is to 
keep the computer in the graph- 


To modify the program for 
other computers, lines 100 to 
200 will have to be changed. In- 
stead of setting points, a PRINT 
TAB(Z) statement will work. The 
program will also work on the 
VZ200 in this manner. 


ics mode. 


REM GRAPHIC SINE WAVES 

REM BY DEAN NICLASEN 

REM SEPTEMBER {983 

CLS 
PRINT" ENTER THE LOWEST LIMIT FOR X";:INPUT A 
PRINT 

PRINT" ENTER THE UPPER LIMIT FOR X";:INPUT B 
PRINT 

PRINT ENTER EXPANSION AND SHI 
MODE(1) 

FOR Х=А TO B 5ТЕР(В-А)/80 
Y=2¥COS (4x X=. 349)+ 3XSIN(2*X4 1. 309) 
ZeExY+S 

IF 2)127 OR G>63 THEN 210 

COLOR 3,0 

SET(S+40,G) 

COLOR 2,9 

SET(Z+40,¢) 

б=б+1 

NEXT X 

GOTO 210 


"ssINPUT Е,5 


Ус Dan 34 р 65. 


This program is ап arcade-type game for 
the У2-200, and is fashioned after the 
video game of the same name. The aim is 
to land as many times as possible on the 
red landing pads provided without run- 
ning outof fuel or crashing into the rocky 
landscape. The keys Y, G, and H are used to 
. control the various motions of the ship. 
The main outline of the program is 
as follows: 
Line numbers 90 to 140 clear the pre- 
ceding screen. 
Line numbers 220 to 445 draw the 


5 REM: 


7 REM: 15 FEBUARY, 


10 CLS:PRINTO198 ОЛ 
20 PRINT@26L, "fa ре. 
30 PRINT:PRINT:PRINT: 

90 CLEARS : DIMB(254) : MODE (1) :50=28671 :SU=3:GOTO0220 


100 
105 
110 
120 


Moon Lander 
by À Alley 


landscape and landing pad. 

Line numbers 500 to 620 handle actual 
game play. 

Line numbers 1000 to 1260 detect 
landings and crashes and take the 
appropriate course. 

Line numbers 1400 to 1420 draw the 
ship. 

Line numbers 1900 to 2020 are the 
subroutine to display the score, 
number of ships remaining and so on. 

Line numbers 3000 to 3190 аге 
instructions. 


***MOON a ** BY ANDREW ALLEY 
199! 


IFDO4»OTHEÉNS] =51 «INT(FU/5) :GOSUB1 900 
COLOR3: FORX=2T0253:SET(X/2,B(X) ) : NEXT 
FORX-0TO21 : SET ( (Q*X) /2, R) :SET ((Q*X) /2, R*1) : NEXT 
FORY-'(Q)TOR-1STEPSGN(R-1 
FORYZR(Q*21 утар-1 STRPSGN(R-=1 


A=0:B=0: DO=0: COLOR2 :2 GOTO2/,0 
Е О т een 
FORTH=305117T0306 5098 TEP32 : READU: oT, Us Mts Б 
О0О FORUSOTOR $ READSC (qu. U): NEXT : NEXT : COT,OR2 : GOSUB2000 
Y=RND(13) +32: FORX=2T0253: Y=Y+RND(3)-2: IFY(20, Y=20 


ШЕҮ250:1з9 


0 
B(X)zY:5ET(X/2,B(X)) : NEXT ғ " 
Q-RND(220) :R=B(Q) *5: FORX-OTO24 : COLORS 


SET ((Q*X)/2, B(Q*X)) : COLOR4: SET 


NEXT 


COLOR2:FORYZB(Q)TOR-1STEPSGN 
FORY=B(Q+24) TOR-1STEPSGN(R=1=B(Q) ) sSET(Q/2 , Y) : NEXT 


FORY-20TO63:RESET(0O,Y):RESET(127,Y):NEXT 
COLOR : FORT268T0O102:SET(T , 60) : NEXT 


X=25944 : FUZ 25 


L T2164: RT226 : BL=1 06 : BR=169: P#=INKEY$ 


IFPt="Y¥"ANDFU)O, A=A-32: BL=107: BR=233ELSEA=A+32:C.0TO550 
FU=FU-1 : POKESO, 10: POKESO, 11: ІҒА<-96, А=-96 


IFA) 96 , A=96 
ІЕР% 


="G" ANDFU)O, B-B- 


FUZFU-.5:IF54-1,B--1 


АРС Apr $4 


„.2:ВТ=31: POKESO, 10: POKESO, 1 1ELSE570 


(а) p.rj& Ihe 


Care should be taken when piloting the 
space ship as it will drift after being 
moved in any direction. At the end of 
each successful mission, bonus points 
will be added to the score. It should be 
kept in mind that a player need not land 
on each landscape; he may simply thrust 
upwards to the top of the screen and 
another landscape will be drawn up. An 
extra ship will be awarded at each 100 
points. 


-B :SET(Q/2, Y) : NEXT 
(Rasen) desir C (Q«28)/2,Y) :МЕЖТ 


((Q+X)/2,R) :SET((0*X) /2, R*1) 
(R-1-B(Q)) :SRT(Q/2 Y) : NEXT 


fof 2. 


" 570 ЛАТ: B=B+. 2: LT=244: POKESO, 10: POKESO, 11BLSE585 
~ 580 FUZFU-.5:IFR)l,B-1 
(= 585 FORX1=XTOX+1 28STEP32: POKEX1, 170: POKEX1+1,170: NEXT 
: 590 X=X+A+B:FOR X1 =XTOX+1 23STEP32 
600 IFPEEK(X1)4»1700RPEEK(X1 *1)4 »170,1000 
; 610 МЕХТ:ІГХ(28800,100 
& 620 GOSUBI1400:RES ET(FU«68, 60) :GOTO520 
à 1000 IFPREEÉ(X1)4»2 55ОВРЕЕК (X1+1)€)255, 1050 
* 1005 TPA>44,1050 
< 1010 DO=NO+t: IFDO<91, 1040 
4 1012 IPPREE(X4128)4 91 700RPERK (X+129)£9170, X-X-32:00T01012 
1020 GOSUR1 400: POKEX+1 , 74: POKEX=31 ,120: POKEX-652,128 
i 1025 SOUITDA, 5: SOUND! 1 E SOUND16, 5 +SOUND20, 3:SOUND19,6 
; 1027 POKEX-31,170: POKEX-65, 170 
1030 51-51-5: FPORX1=XT0X+120STEP32: POK™X1 , 170: POKEXI +1 ‚170: МЕХТ 
` 1040 GOSUR1“00:IFFU4=0,1100 
< 1045 X=X-32:A=0:B=0:GOTO590 
` 1050 IFPREK(X1 )=42ORPREK(X1+1 )=168, X=X-B: B20: GOTO590 
‚ 1100 G0OSUB1400::ORT21708:E(T) =X+32+ INT (T/4) : F(T) ZRND(2)*22 
£1105 n(T)z(T-A4)*, 1: NEXT 
1110 FORT1=17012: FORT=1T03: POKEE (T) , 170: E(T) -E(T) -F(T) «G(T) 
51120 РОМЕ") ,190: POKESO,10: POKESO, 11 : NEXT : NEXT 
. 1125 rORTZ1TOO:POKESO, 10: POKESO, 11 :FORT1 =1 T01 5: NEXT: NEXT 
' 1220 FORT: XTOX+1 23STEP32: РОКЕХ1 ,170: POKEX1 +1 ‚170: EXT 
. 1230 FOPTM=1TOR: POKRE (T),170: NEXT : SU=SU=1 
1250 TFSU -20,G0801900; FORT=1T02000: NEXTRLSE1260 | 
+ 1252 POT 2236 , ЧА AMR ОЛЕДИ : PRINT: PRINT'SCORE" 3$14+£2*10+83*100 
1255 SOUND12, 8: РРТМТ: INPUT"ANOTHER GAME"; At: IFAS="Y", RUNELSEEND 
1250 GOSUR1900:G0T0100 
i 1400 POXEX,165: ПОКЕХ+1 , 90: POKEX+32, 144: POKEX+33,6:POKEX+64,LT 
-110 POF RX 4455 RTs РОКПХ+96 ,152: РОКЕХ+97 , 33: : POKRX+128, BL 
1 1/29 DOPTRX+129, BR: окту 
i 1900 TPS1)9,S1=S1-10:S2=S2+41 :GOTO1900 
1910 Е $2-10:53=S3+1 :SU=SU+1 :GOTO1910 
1920 IlS3)°,53=83-10:C0TO1929 
i 2^00 Taal POP ЗОЗООтОЗОбаА торе; I-I-41:POKEH.SC(S2,1) 
í 2010 norkID-1,56(52, T) z POKEIT22,8C(51 , T) 
| 2020 nn; 1+5, SC(SU, T) NeXT sRETURN . 
2405 DAMAS 942 10, п, 12, i ‚102,102, 102,86 415440019) 
; 5900 DAMATSH, f с, 96,1 26.86 102.85; 56,12 É 150. 166: ae 109. 102,86 
12505 05"4156:165,85,105, 92 ‚166, 86, 86,106, 86,102, 86,386,102, 156 
12510 DATAIG6,156;: 76, 102, 95; 102. 56 854102, 86.166, 106 
4 3000 CT Sepit тат лту( с)! TIA TINY 


1 зарп тета pOT" PILOT A SPACE MODULE ONTO THE" 
EDS) Dorv SUPFAC* OF TIM MOON.": PRINT 
KAQ роттануоШ HIST LAND ОП THE LANDING PAD" 
50°) DUTT TT RAPT "ILL DRIFT WHEN YOU" 
835070 ртути рт TH ANY DIRECTION. ": PRINT 
£300 Lonmmvog ABT AWARDED AM EXTRA MODUTAN 

33035 гот: ПРОМ nEACHT'G EACH 100 POINTS":PRTWT 

$3050 porum" WATCH YOUR TUET.!": PRINT 
E3006 DuerupPanCO)WpuESS ANY REY"; > | 
£3100 FL0C21TO10:A^-THKEYS*: NEXT ! 
12110 TPUTRYS=st 5110 
13115 ChS: PRTHTTAR{ 9) "РИСО ЛИТЕРА" 

3120 PRINT: PRINTYCONTROLS : И 3 PRINT 

3130 PRINT" | MEK ........ ПАТ TRUSTER": PRTNT 
5110 Рот е a... LETT AUX. THRISTER": PRINT 
3150 PRINT" NER ...RIGHT AUX. THRUSTER":PPTIT2:- + 
3155 ÈRTHT" BONUS POTNTS AUARDED FOR FUEL. DEMATITUG, "PRINT 
3150 PDIITPPAB(I1)'fZfo9D ТҰ" 
3170 p^Tcm:PRINTTAQB(9)"PRESS ANY KEY"; 
3120 FORT-1TO10:A5-INEEYS: TEXT 
ТЕТУИБУЧЕНИ , 51808LSE90 


АРС. 5(4) Apr 84 р 178-180 
Ast 2. 


Dis atico bl of li 19-20 For, VER . Blockout 


= H i 
35962 , 241 F1 | by B Pritchard 
39763 ғаз ЕН. Stent odd, ә Р Н = — 


Blockout is a game for the unexpanded 


11) 


(— 25087 = 3é$4Q = 37 {4 1 VZ 200 which will work with joysticks ог 
14 by s from the keyboard. The object of the 
— 2% 674 = з 6 = EFFE game is to trap your opponent by boxing 
him/her/it, in with the lethal trail that 
you (and your opponent) leave as you 
а 25671 D move around the screen. 
аа Wi The main points of the program are: 
ҰЯ 21 BR 75 LD HL, 7599 Н Жү л — Lines 10 to 30 аге а short machine 
* 21473 language which will set the whole 
Ға п зі 79 LD DE ; 755! H ; Mat screen white when called. 
* 2047 D Lines 185 to 190 initialise the 
Fy NJ ҒҒ уу) LD $C W]fFH ; sac oh video Z Am. variables. e | 
; * sç > Line 195 sets up the screen. 
FA 3⁄ sç LD (м), s£ H y; ©° lor byte Я Line 200 checks to see if the com- 
ршег has їо томе (otherwise it gets 
; - the players move from the keyboard 
Fc Е> Gh LD/R Block at "T * orthe left joystick). 
Repeat Lines 205 to 240 process the left 
FÉ С RET BCX, player's movements. 
3 Line 245 collects the right player's 


move from the keyboard or the 
right joystick. 
Lines 250 to 285 process the right 
DIDA (н) +» (5€) N ` player's move. oe 
- Lines 300 to 325 check if either 


E 


NB: LDI- 


W. tees om player has hit a line or run off the 
iy inc DE edge of the screen. 

: Lines 400 to 440 calculate and dis- 
№ de 4c play each player's score. 


Lines 500 to 595 control the com- 
. E ршег5 movements. 
4DIR— fepest LDT wat) 8c =Ñ . Lines 1000 onwards are the instruc- 
tions and keyboard controls. 


ХЕ ЭЖ 


0 REM 

1 REM ** BLOCKOUT хх 
2 REM ** BY OYX* 
5 REM ** B.FRITCHARD ** 
4 
5 
1 
1 


REM ** 29/4/84  .** 
RAM 3930 X3 XX XX ХХХ 
O PORI=-2868710-28674 
5 ВЕАРА :РОКЕІ,А Е 

20 МЕХТ 

25. mT4$32,0,112,17,1511251.295, 7,54, 85,057,115 

,201 

30 FOKE20862,241:POKE*0865,145 

55 OLS:PRINTTAB(T7)'*** BLOCKOUT ***":PRINT 

40 INPUT"INSTRUCTIONS";A$ 

45 IFLEPT$(A$,1)-"Y"THEN!000 

50 INPUT"ONE OR TWO PLàÀYEBS";PL 

55 IFPL421ANDPL«22THEN5Q 

60 IFPL=2THEN75 

65 RI$-"YOU":LES$-"I" 

70 GOTO185 

INPUT"LEFT PLAYERS NAME";LE$ 


АРС 5(7) Sol 3% ps nrent 
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80 INPUT"RIGHT PlAYERS МАНЕ"; КІФ 

185 X1=1:Y1 -0:Х2--1 :Y2-0 

190 АХ-0:АҮ-52:ВХ-127:ВҮ-232 

195 MODE(1):X=USR(Q) 

200 a оле =РЕЕК (27008) :АА= (IEP(45) 

205 IFA-259THENX1--1:Y1-2 

210 IFA-253'7HENX1-1:Y1z0 

215 IFA-247THENX1-0:Y1a-^ 

220 IFYA-22*5 THENX1-0: Y1 =1 | 

225 IFAA-27€?HENX42-1:Y120 

250 IFAAz2STHENX|z!:Y1«O 

255 IFAA-3QTHENX!-0: 15: | 

240 IFAA=29THENX1=0Q:y1= 

245 В-РЕЕК(26700): BB. CINP(AG)ANDS1) 

250 IFB-223TPENX!--1:Y1-0 

255 ТЕВ=247ТВЕМХ1 =1 : У1=0 

260 IFB-253THZzNX!-O:Y1--| 

265 ТЕВ=259ТНЕМХ1=@:Ү1=1 

270 IFBR=27THENX1=<1 :Y1=9 

275 IFBB=23THENX1=1:Y1=0 

280 ІЕВВ-20ТНЕМХ1-0:Ү1--1 

285 ІЕВВ-29ТНЕМХ1-0:У1-1 

500 АХ-АХ%Х1:АҮ-АҮ%Ү1 

205 IFAX<GORAX>1270RA Y«OORA Y>63 THEN40Q 

510 IFPOINT(AX,AY)&>2THEN4 OO 

315 BX=BX+X2:BY=BY+Y2 

520 IFBX<@ORBX >i 27ORBY< @ORBY>63THEN4@5 

325 IFPOINT(BX,BY)«»2THEN4Q5 

550 COLOR3: :SETÍAX, _ | 

555 COLOR4:SET(BX, BY 

540 GOTO200 

400 BS-BS41:W$-RI$:GOTO410 

405 AS-AS«1:W$-LE$ 

410 CLS:FERINTWS;" WON":PRINT 

415 PRINT'LEFT SCORE","RIGHT SCORE" 

420 PRINT: PRINTTAB(3 )AS,TAB(3)BS 

425 PRINT@51,"PRESS ANY KEY TO CONTINUE" 

426 PRINTTAB(10)"(N=NEW GAKE)" 

450 AG-INKEY3:IFA$=""THEN430 

455 IFINKEYS-A$SORINKEY$-''"' THENA25 

440 IFINKEY$-'"N'THENRUNELSEPOKE27000 ,0: POKE26700 , 2 
:G0TO185 ` 

500 IFRND(40)« »1THEN510Q 

505 IFRND(2)-1THENX1 -RND(3) -2: Y -OELSEX1-0 

506 IFX1aQTHENY1zRND(2)-2 

510 кке алуы 
25 

515 IFPOINT(AX+X1 ,AY+Y1 ) =2THEN245 

525 IFAX-1<@CRAY<GORAY >63 THENA1-]ELSEIFPOINT 
(АХ-1,АҮ)<22,А1ғ-1 

550 ITAX«1»21270RÀY«00RAYA265THERA221ELSEIFPOINT 
(АХ ,АҮ)<>2,А2=1 

555 1ҒАУ-1<0ОЗААСООЛАХУ12Т7ТКЕМАЗ-4ЕІЗЕТЕРОТМТ 
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(АХ, АУ-1)<>2,АЗ=1 

540 IFAY+1>63CRAX<GORAX>1 27THENA4= 1 ELSEIFPOINT 

545 IFA1<1ANDA2=7ANDA3=1ANDA4=1 THENA 120:A2- 
MD осо AE, 

546 А41-0:А2-0:А3-0:А4-0 

550 R= а) 

555 IFR= ра а 
(AX-1 ,AY)22,580 

560 IFR-2ANTAX^4!2128ANIAY«-1ANDAY»64 THENIFPOINT 
(AX+1 ,AY)=2,585 

565 IFR=3ANDA Y-1<-1A МГА X«.-1A NDA X »1 28THENIFPOINT 
(АХ,АҮ-1)-2,590 

570 IFR= =A4ANDA Y+1>64A NDA X<-1ANDAX >1 28THENI FPOINT 
(AX,AY+1 )=2,595 


575 GOTO550 

580 X1=-1: Y1=0:GOTO245 

585 Х1=1:Ү1=@:бОТО245 

590 X1=Q:Y1=-1:GOTO245 

595 X1=Q:Y1=1:GOTO245 

1000 PRINTE64," AS YOU MOVE AROUND THE SCREEN" 


1005 PRINT" YCU WILL LEAVE A TRAIL." 
1010 PRINT" YOU CANNOT RUN INTO YOUR TRAIL" 
1015 PRINT" ‚ОВ YOUR OPFONENTS TRAIL,OR RUN" 


1@2@ PRINT"OFF THE EDGE OF THE SCREEN." 
1025 PRINT" (DOUBLING BACK INTO YOURSELF IS" 
1050 ЕКІКТ"ТНЕ SAME AS RUNNING INTO YOUR","TRAIL" 
Q55 PRINT" WHEN FIAYING ONE PLAYER ONLY" 
1040 FRINT" (AGAINST THE COKFUTER),USE THE" 

1045 PRINT"RIGHT SST OF CONTROLS" 

1050 PRINT@8O,"FRESS ANY KEY TO CONTINUE"; 

1055 A$=INKEY$ :IFA$=""THEN1 055 

1060 IFINKZY$=A$ORINKEYS$=""THEN1 060 

1065 CLS:FRINTTAB(6)"KEYBOARD CONTROLS" 

1070 PRINT: PRINT*RIGHT PLAYER?" 


1080 PRINTTAB(14)" -RIGHT" 
1085 PRINTTAB(14)"(.)-UP' 

1090 PRINTTAB(14)"(SPACE)-DOWN" 
1095 PRINT:PRINT"LEFT PLAYER:" 
1100 Е 


1075 PRINTTAB(14 "сатат 


1105 PRINTTAB(14)" RIGHT" 
1110 PRINTTAB(14)"(C)=UP" 


1115 PRINTTAB(14)" (V) - DOWN" 

1120 PRINT 480, "PRESS ANY KEY TO CONTINUE"; 
1125 AS-INKEYS:IFAS-'""THEN1125 

1150 IFINKEYS-ASORINKEY$Sz""THEN!170 

1155 607055 
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BATTLESHIPS 
(VZED 8K) 


This is the old board game of 
Battleships and crulsers. The screen is 
divided into a 9 x 9 grid. The computer 

Su 34 +Q) ‘hides’ a total of 10 ships at random 
around this grid. There are four types 
р 7 aad 22 of ships — 1 Battleship which occupies 
. four adjacent squares, two Cruisers 
which occupy three adjacent squares 
each, three destroyers which occupy 
two adjacent squares each and four 
submarines occupying yes, you've got 
it, one square each. 

You must enter the coordinates 
of a square in the grid, at which time 
the computer prints either a letter іп 
that square, denoting the type of vessel 
htt, or will print an asterisk if the square 
is empty. The object of the game is to 
alnk ал the vessels with the least possi- 
ble number .of shots. Good hunting! 


Micro -$0 


BATTLESHIPS VZ 200 


3 NASCEM ПР. 1: PPINT8179. "FOR У2-200" 160 HEXT В 

4 PRINT@ON1. “RY Р. CRRSON":PRINT9235, "PDELRIDE" 170 E=4 

5% PPINT@322."*tXTHE GAME OF BERTTLESHIPStE£":PEM COPYPIGHT 189 Ғз1 

R PPRINT?9425."INSTFÜUCTIDNS?":PRINT8456, “>>Y=VES Н=НО<<" 190 H=INTCRNDC X 012) 

2 KS=INKEYS 135 Изд 

8 IS=INKEYS: IF I$z""THEHA 200 IF H2A THEN JeRNOXCS) 
9 IF 1%-"Ү"ТНЕН 12 292 IF H=1 THEN .IBRNDX 4 > 
18 IF 1$="Н"ТНЕНЯЯ 295 IF Hz1 THEN К=РНО< 9) 
11 IF I$«5"Y"THEH?: IF 1$<>"Н"ТНЕН? 212 IF H=A THEN K=RNDC 4 > 
12 CLS:PRINT"THE PLAYING AREA REPRESENTS АН "› 229 L=9 

13 PRIHT"PPER OF ЗЕЯ. THE COMPUTER IS p 239 Р=19%.1+К 

14 РРІНТ"СОНТРҮМ._ ТРЕ; TEN SHIPS, Я BRTTLE-"; 258 РОВ M=A ТП (Е-1 > 


15 РРІНТ"<НІР, 2 СЕЈІЅЕРЅ, 3 DESTRUYERS ". 255 IF H=@ THEN Р=Р+М 


H 
16 PRINT"RHD 4 SUBMRRINES. OF COURSE, I "3 269 IF H=1 THEN Р=Р+19%М 
17 РРІНГ"САН’Т TELL YOU WHERE THEY APE, "; 289 IF L=9 AND GCROX28 THEN H=W+1 
18 PPINT"DHLY THE COMPIITER KNOWS, UNTIL 7 298 IF L=1 THEN GC R=E 
19 PPINT"YOU HIT THEM. THE SHIPS ARE "; 200 НЕХТ М 
28 PRINT"DIFFERENT SIZES, AND ARE IOENTI-"; 395 IF Н>® AND №19 THEN 199 
21 PRINT"FIED BY THE INITIAL LETTER. THE "; : 206 IF W=19 THEN 149 
22 PRINT"PATTLESHIP OCCUPIES FOUR SOURPES"; 319 IF Ls1 THEN 499 
23 PPINT"LIKE THIS: REBR, ACROSS OR DOWN." 229 L=1 
24 PPINT:PRINT" PRESS <SPACE> TO CONTINUE” 338 GOTO 250 
25 YS=INKEYS 499 F3F4] 
26 I$*IHKEYS:IF 1902" "THEM 25 410 IF F<4 THEN Ex3 
22 CLRS:PPINT"THE CRUISERS THREE SQURPES, THE "; 428 IF F>3 АМО FX? THEN Ез2 
33 PPINT"DESTROYERS THO SOURRES, AND THE "; 439 IF F>6 THEN E=1 
24 PRINT"SUBMARRINES ONE SQURRE, ALWAYS IN": 449 IF Feil THEN 799 
35 PRINT"R STRAIGHT LINE. SHIPS MAY TOUCH": 445 GOTO 199 
36 PRINT"OR LAY ALONGSIDE EACH OTHER. YDU "1 | 459 PRINT#435," *; : INPUTS 
37 PRINT"FIRE A SHOT BY GIVING THO "3 | 458 IF 5<11 THEN 450 
38 PRINT“NUMBERS. THE FIRST ON THE LEFT, "; | 469 IF 55299 THEM 458 
39 PRINT"THE SECOND RT THE TOP. IF YOU "Jj | 465 TsINTCCS2/18) 
48 PPINT"HIT ANYTHING, A LETTER WILL BE ”; | 478 UzS-Tf19 
41 PPINT"PRINTED TO TELL YOU WHICH TYPE "; | 472 IF f S955 THEN 450 
42 PRINT"OF SHIP YOU HIT. TO SINK ІТ, YOU"; | 475 IF GCS224 THEN S1$2*B" 
43 PPRINT"MUST HIT ALL THE SQURRES ОР THAT =: | 499 IF С<5>=3 THEN S1$="C" 
44 PRINT"PRRTICULRR SHIP." | 485 IF GLS)=2 THEN Sl$="D" 
45 PRINT:PRINT" PRESS <SPACE> ТП CONTINUE" | 498 IF GS 1 THEN 51%"5" 
46 KS=INKEYS 495 IF GCS0-0 THEN S1Ss"t" 
47 IS=INKEYS:IF I$€»" "ТНЕМ4? S00 V-UÍ2*Tt324101 
52 CLS:PPRINT"IF YOU MISS, THEM $ IS PRINTED "; 518 РРІМТӨУ.51% 
53 PRINT"Tn РЕМІНО YOU THAT YOU HAVE SHOT": . 520 С=С+1 
54 PRINT INTO THAT SQUARE BEFORE. " $38 IF G.S) THEN D=D+1 
SS PRINT: PRINT"YOUR NUMBER DF SHOTS IS SHOWN RT": | 535 545)=5 
SA PPINT"THE BOTTOM DF THE SCREEN AND THE"; 540 PRINT94198."SHOTS:" i£: 
5? PPFINT"BEST SCORE YOU ACHIEVED DURING A"; SSA IF 0<29 THEN 458 
SR PPINT"SEPIES ОҒ GAMES. THE GAME ENDS ": 60 IF R«82 THEN РРІМТӨ457,"ВЕ5Т SCORE: ":A 
5а РАТНТ"ННЕН ALL SHIPS HAVE BEEN SUNK." 570 IF C«R THEN R=C 
6A PPIHT:PRINT:PRINT* HAPPY HUNTING" 588 PRINT9482,"RHOTHER GAME7>>YeYES М«МХ<"; 
61 PPINT:PRIHT:PPINT* PRESS «SPRCE» TO START" 535 KS=INKEYS 
62 KS=INKEYS 599 IS=INKEYS:IF I[$=""THENSOR 
63 I$sIHKEYS': ТЕ I9«»" "THEN 63 535 IF I9»"Y"THEH120 
90. Г15 $37 IF IS="N"THENCLS: END 
95 X=A 699 IF 1%<>"Ү"ТНЕН 535 
Іпа A=1RA 619 IF 1$=<>"N"THEN 585 
11а OTM Ge 100) 709 CLS :PRINT@39, “X2XBATTLESHIPS¥S2%" 
128 0=@ 729 PRINT: PRINTTAR(79"1 2345678 9" 
125 CLS: PRINT@1°4, "WAI T-—--ARPRNGING FLEET” 738 FOR N=1 ТО а 
139 Caa 749 PRINTTABC4)INI". o ¿+ + +< s + +< S." 
140 FOP Rel Tn 100 75A MEXT H 


{SA GCB)=a | ГЕЙ СПТП 4=й 


JUNIOR MATHS 


(VZED BK) = JUNIOR МАТН5 VZ 200 
6 CLEPR10090 CLS COLUP.1:PEM COPYRIGHT - R. CARSON - 1933. 
This program tests the four 7 FORPOZØTOZ22 STEP1 :PFINTISPO , LHES. 169); ‘NEXT 
basic mathernatical functions: Addition, 18 COLUR 6 
Division, Subtraction and Multiplication. 23 PRINT@67,." В №. mmm am нә oc 
Whist not an educational program in the w ЕРІМІРЗЗ," Қ O — = = e ea" 
strictest sense, It does serve to rein- 
force lessons already learnt. You аге 
first asked to choose the type of pro- š 
blem after which a graphics screen 5 4й PFINT@0131."” № E ~> €> r= E шю" 
presented with an area for the ques- 41 РРІМТӨ163." п  — шынын Шш * SOUND 20.2 
tions and answers and a representation 42 РРІМТӘ256," " 
of a persons head with a поп-соттНа! 45 FURLE1T0890:NEXT 
expression and some ominous blue 46 $=" WRITTEN BY Р. CARSON ^ = 
water at the bottom. 10 questions ае 42 FORLz1TOLEN« R$» 
48 PRINT82S6,RIGHTSCR$,LO; : NEXT 
49 FORT=1 702500: NEXT 
аи а ше А сше Sá T$=" WRITTEN BY Р. CARSON " 
biet odd rs SOME Si FORPELEN TS2TOISTEP- 1: PRINTI?ZS6.RIGHTSCTS.P >: NEXT 
uplifting music whilst an incorrect 57 в.“ ENJOY THIS EDUCATIONAL GAME " 
ысқа es ы qr and depressing 58 FORL#1TOLEN( BS) 
тес; 0Р5 өуелі (ће Core SO 59 PRINTRZ56, RIGHTS BSL 9s NEXT 
so displayed. npe ten 9008 SA FOR J=1 T2500 NEXT 
tions have been presented, your SCOE | 14.2 ENJOY THIS EDUCATIONAL GAME " 
and percentage correct аге Shown. 2 FPL = ЕМ TS STOISTEP=1  PRINT@ 256. PIGHTS¢ ТФ. 1: NEXT 
Now comes the odd bit which 53 Fowi=1 10800: NEXT I 
may cause our mallbags to bulge with та soUND2@.3° PRINT" — YOUR CHOICE OF PROBLEMS" 
Irate letters from outraged child 7; PRINT:PRINT" я = RODITION" 
psychologists. In the original version, 22 PRINT" D = DIVISION" 
the author "punished" an Imperfect 23 PRINT" Š = SUBTRACTION" 
covered the head. He soon found that 22 k*%$=INkEYS$ 
children using it would deliberately enter ай AS=INKEYS: IFRS="" THENSO 
Incorrect answers Just to see this haP- дү IFR6$Sa"M"5DT066662 
pen. So he reversed the procedure. рг IFAS="D"GOTH60665 
Now to submerge the hapless head, вх IFR6$="R"GDT069663 
one must get a perfect score! By the ра үғяж="< "5070690672 
way, the level of difficulty is appropriate — д5 [Ең ›"М"АНОЯ®< >"D"ANDAS< >"A"ANUAS< >" S" THEN76 
to children aged from 9-11. #9 РЕМ 
19@ г.=0:5=0 : Реа 
141 CLS: COLOR, O 
119 COLOR? :PRINT&932, " [n] SS XU IDEE)" 
1280 COLOR?7:PRINTG*64," Gmm... F 
125 COLOR 2 
130 PRINT?97," «ШЫНЫНЫ  " (0L СКУ :РЕІМТОЈ 10, " u aa 
132 COLOR 2 
135 PRINT9122," EE ШЕШЕ URL " (OLOR? :PRINTO142. " w ———_a 
140 COLOR2 
145 PEINT?161, "ИИВ" .COLOR7: PRINT? 174. " wa” 
147 COLOR? 
159 PFIHT?193," mmm" В" COLOR? :РЕТНТ®29 ‚ " awa 
15% COLOR 2 
160 РРІМТӘ225, ""HEEEEEEENEP" COLOR? : PF INT@223 , " наана" 
165 COLOR 2 | 
179 PRINT9?257," "Wm P ":(0LOR7:PRINTO270, " 
175 COLOR2 У | 
180 PRINT?222." E  " СІДСПЕТ:РРІМТӨ302." wawa" | 
185 COLOR2 
190 PPINT9?9321." a] ":COLOR?7:PRINT9234. "аи" 
195 СОБОР 4 
гой PPINT?3253;."EEEENEENEENNEENB" : COLOR? PRINT9266, " ww” 
203 COLOR? : PR INT0392 , " w—rr " 
295 COLOR 3 


zu PPINT9?285, "НЕН" 

PRINT*9417,"NEEBEBNENENB" COLOR”: PRINTR430, "ананан 
COLOR 3 i 
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500нозӨ , 5 
COLOR , 9 
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CONTEST LOQ (VZED) 


5 


CLEAR дийй 


[И Е 
КЕМ 
ELS? PR u PRINT" HET CALL SIGH. SEE BEELOH":FEIHT 
РЕІНТ: E LIST :- LIST WITHOUT SORT" 
z PRINT: РЕ SORT SORT CALL SIGHS" 
3 ЕБІНТ:РЕ FEIHT:- LIST OH FEIHTER" 
FREIHT:FR EHD  :- ЕНІ) FROG." 
FRIHT:FRIHTTHE* 33; ЕМТЕЕ CHLLSIGH" 
‚ FRIHT:FRIHT" EHTER :- : IHPUT Н1% 
IF Hi$z"3üRT" THEH PN 
IF Als="LIST" THEN Feu 
IF R1$="EHD" THEN CLS: EHD 
IF H1$z"FEIHT" THEH Э5й 
Fille I=1TÜ LEHCH1$ 2 
HEXT I 
CLS 
REM 
FOR I=1 TŪ H 
IF В1%-і:1%% 12 THEM зай 
A НЕХТ I 
à REM 
H=H+1 
г.1%-НосН1% 
РЕІНТ:РБІНТ:РЕІНТ ТНЁ 3o" ":n1$;:" IS МЕМ CALL SIGH" 
FRIHT:FREIHT:FEIHT ТАЕ. Sv" "skp" CALLS LOGGED " 
à РО 2 = 1 TO 1606 
HEART Ж 
тыл GOTO 2 

à КЕМ 
1 РЕІНТ:РБІНТ:РЕІМТ THEC4 9?" "АФ" HLKEEHDY ОБЕ" 
420 їйї 34H 
je НЕМ 
1 CLS:PEIHT:FERIEIT THES 12 "SCRTIEIGU:FRIHT 
For Ісі TŪ H 
; Als=015¢ I> 
S40 РЕІНІ "x": 
еей рик JEJ TON 


— = guion | 
дат Cm 


= 
L: 


ча Pa Fm e — 


ей IF Н1%Ф%21%6.1» THEN сем 
Е1$=7:1% 1) 

1S" J s=A1S 

Н1%-Б1% 

НЕХТ J 

21$: Іо-ҢН1% 

HEST I 

РЕІНТ:РБІНТ:РБІНМТТНЕСОЗ; SORT COMPLETE" 
FEIHT:FRIHT:FRIHT:FRIHT" DU ‘VOU WAHT A FRIHTULIT?" : PRIHT 
РЕІНТ" ГРБІНТІ = PRINTOUT Ти FRIHTER" Е 
РЕТНТОМТ TO би" 

RETURH TÜ МЕНИ" 


қ 


D 


[л fe Dod 


maman ых 
LS am am 


FFIHT" CYESJ 
РЕІНТ"  CHOJ 
КФ-ІНКЕТФ 
Із-ІМЕЕТФ: ІҒІФ-""ТНЕНЕСЕ р 
IFISZz2"Y"BRHDOIS$Zz2"F"RHOISZS"H"THEHEZS 
IF ІФ="Н" THEH 154 

IF ei ТНЕН 95 
IF ІФ-"Ү" THEH rua 
AA РЕТНТ 

2 LLS:FRIHT:FEIHT THEO eos "CALL SIGHS LOGGED": РЕТНТ 
1 FOR Iz1 ТОН 

1 FRIHT CISSI 

НЕХТ I 

FRIHT:FPEIHT" FRESS :-zFHCEZ« TÜ CUOHTIHUE" 

F $= THEEYS 


fà Po Ға Po Pues m un oo AI 74 


Tunes fur 


Ti Ty CT, Cry C CU, CP OS C, CO Cn ЕЛ Cn cn «n 


a7" "ТНЕНРЕЗ 


REM 


912 PRINT: PRINT" YeYES ТЕТІК 


915 KS-IMKEYS 
317 EY$:IF pi$="THEH 317 
Een o 


TI ;"H'"THEHLT 
LFRIHT TREK 192: "CALL SIGNS LOGGED" 
ІРЕІНТ 
Fork [=1 TU H+1 
ІРЕІМТ 121% I?, 
НЕХТ I 
GOTO Эй 


ELS :PFRIHT:PRIHT:PFRIHNT:FEIHT" pu vol WAHT ТО STOP НОМ" 
FRIHT:FRIFT:PRIHT:FRIHT:FRIHT ТАВ So" ";H;" CALLS LüGGED " 


CONTEST LOG VZED 
by Ron Carson 

This program should be of ad- 
vantage to any radio amateur or short- 
wave listener who owns a У2200. 

As the title suggests the pro- 
gram is ideal for RD contests or any 
other type of log from which you wish 
to get a hard copy of call signs work- 
ed. To operate, it requires a printer to 
be connected to the computer. 

The menu gives you 5 options: 
LIST—List of all entries 
SORT—Sort into alphanumeric order 
PRINT—Printout to printer 
END—End Program 

—Enter Callsign 

If you go into the sort mode all 
entries are placed in alphanumeric 
order, then you will be asked if you re- 
quire a printout to printer 
Printout to VDU 
return to menu (cont) 

After each entry you will be told 
if the last callsign entered is a new one 
or entered before. If already entered it 
will not be retained in data. | 

Do not enter END until you have 
your hard copy, as END or break will 
destroy all of your entries. 


ficco - Yo 
40) таға 
P 3 = i, 


FEM Ж+ЖЖ+Ж СОБ ЕНСЕ XXX 

КЕМ AS PFIHTED IH MICRO- 25 Fok ТЕЗЕЯ - ЖҮЗ 
REM MODIFIED Ev К, CARSOH “FOR We ZÉ 

REM | 

КЕМ 

REM 

CLS: FR CHT: PR CHT 


A = oUm 
=. 
ых 


Naat Uu 


кч 


к. — — a ru dm mA ca 


— — x. = 


PAO hi PO w iS 


— 
tw 


РЕТНТ" 4444 DOG ЕНСЕ ЖЖЖЖ 


PRIMT:PRIHT:PRIHT:PRIMT" PRESS ANY KEY 
PRINT:FPRINT:PRIMT:PEIMT" PRESS <ЭРНСЕ> Tü START ЕНСЕ" 


1%=1НКЕҮ# 


| ASS INKEVS : FASE" THENL 20 
MODES 12 


COLORS FüRX-aTO12?:SETCX.DB»:HEXT:FÜRX-BTO127?:SET 


aTO12f:SETCX,2 2: HEAT 


ЯТО12Р : ЕТС, 42 >:НЕХТ:РОВХ=ЯТО12т:5 


aTO12r:SETCX, 44): HEAT : COLOR 
ЯТ0123: ЕТСЯ, 12): HEXT 
8Т0123:5ЕТ5Х,229: es T 

; bd АГ 3 за: э: ЧЕ: 


! REM. DRAM STAT ыы 


Я к=: Ү=6:5050637 


AC: 'Y=D : GÜSUE S? 
A-Th:YzH: EOSUB37O 
A-I:'Y2:G05UE 3768 


COLOR2 : FORY=4TO4GSTEPS : SETC 124,7 y: NEXT YS 


I$-IHKEY$ 


T KS=IHKEYS: IFES<>" "ТНЕМ229 


ил COHTIMUE" 


CA 1): HEAT 


DOG RACE VZED 
by Ron Carson 

This program was published in 
Місго-80 some time ago for the ТН5-80 
and System-80. Now it has been 
modified to run in your У2200. 

1 have only written the bare 
bones program. Although it runs well 
and is useable as is, it gives you the 
chance to expand the program to suit 
your needs. 

After loading the program you 
are asked to do two things: 

1. Press any key to continue. 
2. Press SPACE TO START RACE 


ane 52 : After the race is over the win- 
ES ee е ning dog is printed in the text mode, and 
IF 2=1 THEN#=A: Y=6 : 5051/8419 :Я=Х:60Т0289 ; ; 
е в aC: Y=D: aisle ste = : 5010200 ceri te asked if you want to race again 
ІЕ2-ЗТНЕНх-б: Y=H: GOSUE4 18: GX: GOTOH ; 
TÉ а. ТЕ J: 5051/8419: I=% : 65070280 iscsi Мы = еу. SU 
IFA««138THEHGOTO2 28 
FORM=1TO1 800 MET a really great game and a lot of fun. 
ІНЕН >-1ЗӨТНЕНРРІНТ"НГ. IS THE МІМНЕР РНҮ":0%;РЖ15; "CENTS". 
IFC?z138THEHFFEIHT"HO, IS THE МІННЕР РНҮ";0%;РЖ15: "СЕНТЕ" 
IFG»z130THEHFRIHT"HO. 3 IS THE WINHER РНҮ";0%;РЖ15; 4CEHTS" Micro -£o 
IF I >=13@THEHPRIHT"HO. IS THE HIHHER PAY"; O$3F415) "CEHTS" 
FORF=1 101900: NEXTF 4(s) 1924 
1ЇНРОТ"МОШ р ҮП) LIKE AHOTHER RACE «Y4H»";R2$ 
IFR2$z"Y"THEH190 
IFAZS="N"THENCLS : END f 48,824, 
СЕТ(Х-9,Ү2:5ЕТ( Х-20,Ү2:5ЕТСХ-6,Ү%1):5ЕТ(Х-7,Ү%10 
SETCX-8, Y*12: SETC X719, Y 412: SETC X710, Y*44 2: SETCX-17, Y*4) 
СЕТ Х-11,Ү%5):5ЕТ(Х-16,Ү%5) 
FORU=9TO1S:FORY=2TO3: ЗЕТ К-И, ҮЗУ): HEXTY: НЕХТУ : RETURH 
RKESET« X-29. Y: RESET: K-19, Y*1»0:SETCX-17, V41 >: SETC X716. 79 
SETS X-5,) Y+1 ): SETS X-4, 7+1): RESETC X79. Y): SETCX-6, Y) 
Я БЕСЕТ(Х-18.Ү%2):БЕСЕТСЖ-17,Ү%2):2ЕТ(Х-8,Ү%2):5ЕТ(Х-7,Ү%20 
Я PESETCX-8,Y*120:RESETCX-7, 1+1): RESETCX-11, Y*5 >: ЕЕЗЕТСХ-19, 1+4 > 
ZET Х-8,Ү%4):ЗЕТ(Х-7,Ү%5):КЕЗЕТ( Х-18,Ү%3):БЕСЕТС X-17, 743 
СЕТ<Х-8,Ү%32:5ЕТ(Х-7,Ү%З):БЕСЕТ(Х-17,Ү%4)0:5ЕТ(Х-15,Үз40 
РЕСЕТСХ-17,Ү%1):5ЕТ(Х-15,Ү%1):БЕСЕТСХ-16,Ү%2):КЕБЕТ(Х-16,Ү%30 
я РЕСЕТСХ-15,Ү%2):ВЕСЕТСХ-15,Ү%3):КЕ5СЕТ(Х-16,Ү%52 
REZETCX-15. Y45 ): FESETCXE-15, Y 442 
SET. X-13, Y 40): SETS 4-712, Y45 ): RESETC X-8, Y* 4): SETCX-6, Y 44) 
SETC Х-6,Ү+2): ЗЕТ X-5. Y 4*2): SETCX-6, Y 43): SETCX-5, Y*32 
SETCX-2, Y*12: SETCX-2, Y+1 ): PESZETC X76, 7): SETCX-5, YO 
RESET: X-6, Y *15:PESETC X75. Y 412: XX 4: RETURH 
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1j 00 В d 
“Жыл D ID IDE Io = 
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+ p Ud QD өзім GO CO C Qo a Ce ру Р М Р 
зоо: 
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Тһе following two programs demonstrate the high 
resolution graphics capabilities of the VZ-200. Both 
programs will run on the unexpanded (8k) 
computer. 


Circle Plotting 


Here is a quick but fairly accurate program to get your 
VZ-200 to draw circles. The following notes explain the 
program and will help in conversion to other 
machines. 

Line 10 Sets high resolution graphics mode. 


circles. Eclipses can be formed by altering 
the values of these variables. 

Line 40 Ris the radius of the circle, N is the number 
of points to be plotted in the circle. 

Line 2000 A is set at 2 x Pi which is a circle in 
radians. 

Line 2030/ Contain the formulae which determine the 

2040 value of the X and Y co-ordinate. 
Line 2050 SET (X.Y) is the equivalent to HPLOT and 
PLOT X,Y in other versions of Basic. 


CLS: '3t3t3t 3t 3t3t 3t 3t 3€ 3t 3€3€ 3€ 3€ 39€ 9€ 3€ 3€ 9€ 303€ ЗНЗ 
“ыж 92-200 CIRCLE PLOTTER жж 
'* IAN A. THOMPSON * 
злился TE EE TEE EE EE ES 
PRINT@71," CIRCLE PLOTTER " 
PRINT@257, "IAN THOMPSON, 
COLLOROY PLATEAU" 

В IF INKEY$-""THEN8 

9 IF ІМКЕҮ$=" "ТНЕМВ 

10 MODE (1) : СО ОК,О: СООК 3 

15 REM*Rx3O 

20 СХ=60: СҮ=50 

ЗО OX=1.5:0Y=1 

40 R=30:N=150 

50 GOSUB 2000 

100 REM####R=25 

110 COLOR 2 

120 СХ=60: СҮ=50 

150 OX#1.5:0Y=1 
140 В=25: №150 

150 GOSUB 2000 

200 REM3«**R-20 

210 COLOR 4 

220 СХ=60: СҮ=50 

250 OX=1.5:0Y=1 

240 R=20:N#=110 

250 GOSUB 2000 

300 REM####R=15 
COLOR,1:COLOR 7 


NO зам» 


High Resolution Graphics Plotting 


> Line 100 Sets the high resolution graphics mode. 
Line 110/V and H set the vertical and horizontal 
: ; : ; 115 screen dimensions of the plot. 
Line 20 ИЕ ds posu acida p Line 170 Assumes that the point with co-ordinates 0.0 
altering these variables it is possible to є а leh hania combr ob Ihe gereen: Ç 
; Line 175 Sets the points оп the screen. SET is 
place the circles anywhere on the screen. equivalent to PLOT and HPLOT on other 
Line30 These variables determine the shape of es q 


clears the screen and then commences drawing the 
next design. 


Three Dimensional 
Plotting 


This is a simple program for evolving three dimen- 
sional representations of trigonometrical functions on 
the VZ-200. 


The following notes explain the main points in 
the program. 


systems. 
Line 155 Is the nucleus of the plot; this trigonometri- 
cal formula is the function to be plotted. 


Variations are found in lines 255, 355, 455, etc., the pro- 
gram plotting a series of seven designs, pausing be- 
tween plots. Pressing any key at the end of each plot 


520 CX260:CY=30 

550 OX=1.5:0Y=1 

540 R=15:N=90 

350 GOSUB 2000 

400 REM####R=10 

410 COLOR,1:COLOR 6 

420 CX=60:CY=30 

430 OX=1.5:0Y=1 

440 R=10:N=70 

450 GOSUB 2000 

500 REM####R=5 

510 COLOR,1:COLOR 8 

520 CX=60:CY=30 

550 OX=1.5:0Y=1 

540 К-5:М-50 

550 GOSUB 2000 

1000 FOR A=1 TO 800:NEXT А 
1010 COLOR,O | 
1020 FOR A=1 TO 800:NEXT А 
1050 COLOR,1 

1040 GOTO 1000 

2000 A=2* (22/7) 

2010 C=A/N 

2020 FOR 1=0 TO A STEP С : 
2050 Х=К*51М (Г) 8 Х=1МТ (Х+0Х+СХ+0, 499) 
2040 Y=R*C0OS (І) : YSINT (Y#OY+CY+0, 499) 
2050 SET (X,Y) 

2060 NEXT I 

2070 RETURN 


PC:GAM 


РС. Games Act, 54 
Р 557 53. 


bel 3. 


55 


5 CLS: SOUND25,6 


10 PRINT@41," 3-DIMENSION " 
:'FOR THE UNEXPANDED VZ-200 


20 PRINT@102,"CBY IAN THOMPSON2" 

ЗО PRINT:PRINTG162,"THIS IS 
А SIMPLE PROGRAM FOR" 

40 PRINT@194, "EVOLVING 
THREE—DIMENSIONAL" 

ЗО PRINT@226, "REPRESENTATIONS 
OF TRIG-" 

60 PRINTG258, "ONOMETRICAL 
FUNCTIONS. " 

70 PRINT@448,"PRESS ANY KEY TO 
START PLOTTING" 

90 IF INKEY$="" ТНЕМ 90 

91 IF ІМКЕҮ$="" THEN 90 

100 MODE (1) 

105 COLOR,O 

107 COLOR 2 

110 Н-117 

115 V-63 

125 X1-H/2:X2-X1*X1: Y1-2U/21 Y2=V/4 

130 FOR Хао TO X1 

135 X4=X*X:M=-Y1 

140 A=SQR(X2-X4) 

145 FOR І=-А TO А STEP V/10 

150 R=SQR(X4+I*I)/X1 

155 F-(R-1)*SIN(R*12) 

160 Ye1/5«F*Y2 

165 IF Ү<=М THEN 180 

170 M#Y:Y=Y1-Y 

175 SET (X1-X,YO : SET 

180 NEXT І:МЕХТ X 

190 IF INKEY$-""THEN19O 

IF INKEY$-""THEN190 

MODE (1) 

COLOR,O 

COLOR 3 

210 H»117 

V-63 

X1=H/2: X2=X1*X1:Y1=V/2:Y2=V/4 

FOR X=O TO X1 

Х4-ХжХіМ--УҮ1 

A=SQR(X2-X4) 

FOR I=-A TO A STEP V/10 

R=SQR ‹Х4+1%1) /Х1 

F=CDS (9#R) * (1-R) «2 

Y=I/5+F*Y2 

IF Ү<=М THEN 280 

M=Y:sY=Y1-Y 

БЕТ (X1-X,Y)O:SET (X1+X,Y) 


(X1+X,Y) 


28O NEXT IsNEXT X 
290 IF—INKEY$=""THEN290 
295 IF INKEY$-2""THEN29O 


300 
505 
507 
510 
515 
525 
330 
335 
340 
345 


350 


355 
560 
565 
570 
375 
380 
390 


1595 


400 
405 
407 
410 
415 
425 
450 
455 
440 
445 


450 


455 
460 
465 
470 
475 
480 
490 
495 
500 
505 
507 
510 
515 
525 
530 
535 
540 
545 
550 
БЕТ 
Бел 
565 
570 
575 


МОРЕ (1) 

COLOR, 1 

COLOR 7 

H=127 

V=63 

X1=H/2: X2=X1*X1:V1=V/2:Y2=v/4 
FOR X=O TO X1 e 
X4zX«X1M2»-Y1 

A=SQR (X2-X4) 

FOR I=-A TO A STEP V/20 
R*SGQR (X4 I4 12 /X1 
F=COS (20#R) + (1-R) 
YsI/S«F«Y2 

IF Y<=M THEN 380 
М«Ү:Ү<Ү1-Ү 

SET (X1-X.Y):SET 
МЕХТ IsNEXI X 

IF INKEY$=""THEN390 

IF INKEY$=""THEN390 

MODE (1) 

COLOR , O 

COLOR 4 

H=127 

V=63 

X1=H/2:X2=X1*X1: Y1=V/2:Y2=V/4 
FOR X=O TO Xi 

X4=X*X:M=-Y1 

А=508 (X2-X4) 


(X1+X.Y) 


FOR I=-A TO А STEP 9/20 
R=SQR(X4+I+*I)/X1 
F=ATN(20#R)*(1-R) 

Y=I/S+F*Y2 

IF Y<=M THEN 48O 

M=Y: Y=Y1-Y 

SET (X1-X,Y)sSET (X1+X,Y) 
NEXT IsNEXT X 

IF INKEY$=""THEN490 

IF ІМКЕҮ%-""ТНЕМ49О 

MODE (1) 

COLOR, 1 

COLOR 8 

Hz127 

V=63 

X1=H/2: X2=X1%wX1:Y1=V/2:Y2=V/4 
FOR X=O TO X1 "f 


Х4-ХжХ:М--Уі1 

A=SQR (X2-X4) 

FOR I=-A TO A STEP V/20 
R=SQR (X44+1#1)/X1 

F=LOG (25*R)3(1—R) 
YzI/S«F*Y2 

IF Ү<-М THEN 580 
MYs:YsY1-Y 

SET (X1-X,YOs:SET (Х1-Х,Ү) 


/ б> Кага бер 54 
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NEXT I1NEXT X 

IF INKEY$x""THENS9O 

IF INKEY$=""THENS9Q 
MODE (1) 

COLOR,O 

COLOR 3 

H=127 

V=63 
X1=H/2:X2=X1*X1:Y1=V/21Y2=V/4 
FOR X=O TO Кі 
X4=X*X:M=-Y1 

A=SQR (X2—X4) 

FOR I=-A TO A STEP V/15 
R=SQR(X4+I+*I)/X1 
F=SGN(15*R)*(1-R) 
Үші/5-Ғжү? 

ТЕ Ү<=М THEN 680 
МеҮ:ҮзҮ1-Ү 

SET (Х1-Х,ҮзібЕТ (X1+X,Y) 
NEXT І: МЕХТ X 

IF INKEY$=""THEN690 


IF INKEY$=""THEN690 


| MODE(1) = 


COLOR,1 

COLOR 7 

H=127 

У=63 
ХіаН/2іХ2-Х1%Х11Ү1жУ/24Ү2-У/4 
FOR X=O ТО Хі 
X4=X*X:M=-Y1 

A=SOR (X2-X4) 

FOR Іш-А TO А STEP V/15 
R=SQR(X4+I*I)/X1 
F=(1—R) 

Y=2I/5+FxY2 

IF Y<=M THEN 780 

M=Y: Y=Y1-Y 


“БЕТ (X1-X,Y) 18ET (X1+X,Y) 
.NEXT IsNEXT X 


IF INKEY$=""THEN790 
IF INKEY$2""THEN790 
GOTO 100 


26; Gawas Өш 84 
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Ghost Hunters, поі to be confused 
with Ghost Busters 


Here are two interesting POKE commands while 
playing Ghost Hunters for the VZ-200. 


To achieve a high score POKE 32525,255 which 
will give you 255 Pacmen (a whole army) instead of 
the usual three. 2 

If you РОКЕ 30290,255 the fruit will appear every 
10-15 seconds for the rest of the game. NS 


PCG Jan хє 24) P. 54. 


VZ-200 odds & sods 


In Ladder Challenge Frame 2, 
jump in the opposite direction 
to the boxes. In frames 3 and 4 
do not use too many shields or 
they will run out 

In Panik, climb to the 


highest floor and then move 
down digging as many holes 
as possible. 

Shoot as many UFOs as 
possible in the early stages of 
Asteriods Each UFO is worth 
1000 points. NS 


PCG Novas 1(4) p t2, 


515 SC*0:X25X:Y263:R120:B1 =0 W] 20 
517 005/820980 
522 08050820200 


к - ы 
523 6050829989 
524 CLS 
525 PRINT"HHICH CLUB DO YOU WISH TO USE" 
522 INPUTCL 


530 IFCL=1THENAU=29+RNO(11):GOTO6QQ 
540 IFCL=2THENAV#19+RNO(11) :GOTO68@0 
550 IFCL=STHENAU=69+*RNO( 6) :GOTO688 


This draws a golf course in 560 IFCL=2THENñU=24+RND(6):GOTO6@@ 
graphics mode with endless 528 IFCL=STHENAU=79+RNO(6) :GOTO622 
variations on bunkers, water SO ee ee 
hazards and roughs, and allows бее CLS 
‚ the player to actually ‘play’ the 602 PRINT"IN WHICH DIRECTION DO YOU WISH 
shots giving а choice of club, 610 PRINT"TO HIT? (070360 DEGREES)" 
hitting strength and direction. 620 PRINT“MEASUREO ANTICLOCKWISE FROM" 
Gary McCleary 630 PRINT"THE RIGHT* 
E ins NSW 635 GOSUB60300 
mu Plains 640 INPUTAZ 
645 CLS 


652 PRINT"HOH HARO DO YOU WISH TO HIT" 
660 INPUT"eTOSe" ;U 


48 РЕМ GOLF SIMULATION 665 CLS 

SƏ РЕМ BY GARY J MCCLEARY 668 PS=3. 1415926547180 

51 REM DEC. 1983 620 IFUC@THENU=@ 

102 CLS —— 625 IFUXSƏTHENU=SƏ 

11@ PRINT@33,'QELCONE TO GLENLAY GOLF CO 62; SC=SC+] 

з: 680 RA=UŁUSSIN(2ZŁAUŁPS)/9. 81 
111 PRINT 682 RS*RR/P 


112 PRINT"IN GOLF THE OBJECT OF THE GAME 68S HT=(CSINCAUSPS)£U)~2)7(19.62) 
Я 686 IFR1=1THEN129@@ 


113 PRINT"IS TO HIT THE BALL FROM THE" 682 IFB1=1 THEN] 3000 
114 PRINT“ TEE@D) TO THE HOLE IN THE" 690 X=X+RSECOS(AZEPS) 
115 PRINT"FEHEST NUMBER OF SHOTS." 200 YsY-RS£SIN(A2XPS) 
120 PRINT 218 HsINTCX) :K2INTCY) 
125 PRINT"HILL THERE BE 1 OR 2 PLAYERS?" 215 н1=@ 
130 K#=INKEY$ 220 IFH<QTHENH=0:H1=1 
133 IS$*INKEYS:W4-RNO(CDO):00-DO*1:1FDO210 — 725 ІРН»«122ТНЕНН«126:Н141 
ЭТНЕНОО=1 :1Е18=""ТНЕН133 238 IFK<@THEHK=0:H1=1 
135 IFI$2"]"THEMPL»]1 :LP»0 :GOTO145 235 IFK>63THENK=63 :H1=0 
132 IF1€»"2" THENPL=2:LP=@ :G0TO145 236 X=H:Y=K 
14е GOTO13@ 740 1FH1=1THEN9000 
145 CLS 242 OI*SQR(CA-H)^2* (BB-K)^2) 
155 PRINT"YOUR GOLF BAG CONTAINS ñ:" 245 REM 
158 PRINT 246 IFOI«4sGANOGF =1 ТНЕН29@ 
160 PRINT Č 500 HAx.RANGE 251 METRES” 242 GOSUB20000 
? 165 PRINT Q [ВОН MAX. RANGE 221 METRES" 254 COLOR2 
- 120 PRINT'$ IROD НАХ. КАМСЕ 164 METRES” :255 KSsINKEYS 


> 125 PRINT@ TROD MAX.RANGE 127 METRES” 260 IS-INKEYS 
180 PRINTS UCDGE) MAX RANGE 82 METRES” 265 SET(H,K):SET(H+1,K) 
185 PRINT*CUTTER) MAX.RANGE 41 METRES” 278 КЕЅЕТСН,К) :RESET CH] 5K) 
190 PRINT"AND IS ONLY USED ON THE GREEN" 225 IF 18="" THEN76@ 

pee 194 PRINT 280 IF1$ о" "THEN26O 
195 PRINT"TO ñCHIEUE GREATER HEIGHT" 298 DI=SOR( (A-H)*2+(88-K)*2) 
200 PRINT"USE A HIGH NUDBEREO IRON“ 292 OB=SQR( (С-Н)-2+(0-К)^2) 
205 PRINT 294 OusSQRCCE-H)^2*(F-K)^2) 
210 PRINTTÉPRCE) CONTINUES THE GANE” 296 OJ«SORCCJI-H)^2«(J2-K^2) 
259 6050820989 800 ON=012P 

E 329 НО=1 :ТТ=@ :Т1 =0 :Т2=0 :65=@ 818 iFOI<=GTHENGF=] :GOTO8000 

: 359 PA=RND(3)+2 812 IFOB<=BANDB O@THEN7@20 
351 P2=RNOC2) 813 ІРҒОЈ <= ЈЗамоззоетнЕм2еееё 
352 ІҒРА=ЗТНЕМР=3 :SX=63 :GOTO400 814 IFOW<=UANDWO@THEN 180000 
354 IFPA=4THENP=4.8 816 CLS 
366 IFPA=STHENP=6. 5 812 PRINT"THAT SHOT WENT “INTCRA) "METRES 
368 IFP2=1THENSX=@ “ 
320 IFP#=2THENSX=119 819 PRINT 
482 КЕМ 828 PRINT“OISTANCE FROM THE HOLE” 
428 2B=RND(3) :2H9RNDC3) :2JeRNDC3) 822 PRINTINT(DM)°METRES” 
432 ./3-КН0(92%2 825 PRINT"NUHBER ОҒ STROKES="SC 
458 Pr=RND(107)+7 1BBeRNDC2)*18 827 IFPA=40RPA=STHEN! 002 

а 453 G=RND(S)+2:B=RNO(9)+2:M=RMD(10)+3 832 IFH<4@ANDK>33 THEN] 1090 

+ 455 IFZJe1THENJ3-0 835 IFH>86ANOK>31 THEN! 1000 

456 IFIB=1THENÐ=0 . 840 IFK<=8THEN] 1080 
452 1Е&Ы=1ТНЕНЫ=@ 845 GOTO2000 
458 C=RND(103)+9:0=13+RND(6) 1908 IFP2-2THEN1500 

$ 459 MO=INTCSOR(CA-SX)~2+(BB-83)+2)aP) 1100 IFH»166NDIO31THEN11000 

% 460 HB=SOR((A-C)~2+(B8-0)~2) 1116 IFK<=8THEN] 1000 

` 465 IFH8<=G+B+3THEN458 1120 GOTO2000 
466 E*13*RNDC 180) :F 214 *RNDC35) 1508 IFH«1110NDO31THENI 1000 
468 BHeSORCCC-E)^2*CO-F 2^2) 1510 1FK<=8THEN! 1009 
470 MMsSORCCA-E)^2*(BB-F)^2) 1528 GOTO2000 

к 472 Т1ЕВЫ‹=В+Н+ЗТНЕН466 2822 5010525 

" 424 ІҒЫН<-Ы%0%3ТНЕН406 7000 В1-1 
482 J1=RNO(103)+9:J2=RNO(6)+13 2005 Вн=124.5 
485 HJeSORC (A-J1)^2*(B8-J2)^2) 2010 PRINT"YOU ARE IN THE бочке" 

. 490 IFHJ(*G*J3*3THEN458 7020 PRINT"YOU ARE ADUISED TO USE THE WE 
492 JWu*SQRCCJ1-E)^2*(J2-F)^2) OGE" 
494 IFJW<=J3+W+3THEN466 2938 GOTOS25 
seo CLS 8800 GF=1 :GOT068060 
506 X=SX:Y=63:R1=0:B1=0:W1=@ 8004 CLS 
507 $С=а 8028 PRINT"YOU АЕ ON THE GREEN) ямо ыш. 
Ses CLS е 
510 PRINT"THIS IS HOLE NUMBER” HO 8018 PRINT"BE USING THE PUTTER” 
511 PRINT 8822 PRINT"WHICH DIRECTION (9703602 
512 PRINT"PLAYER" LP+1 8825 50508602308 
513 PRINT 8030 INPUTA2 
514 PRINT“PAR"PA; MO “METRES” 8935 CLS 
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8040 PRINT"HOH HARO OO YOU WANT TO HIT" 20060 FORI=86T0122STEP2 20235 SET(I,J):NEXT:NEXT 69070 GS-INTC427C2*G)) 


80580 INPUT"COTO25)" ;0 20020 SETCI,31):SETCRNO(40)*86,31«RNO(31 20236 ІҒ2В=1ТНЕМ20265 60080 нн=2ж(н-һ)®б5+63 
8060 IFUC@THENU=O 2) 20238 COLOR2 60090 кк=ск-ВВ)+65+31 
8065 IFU>25THENU=25 20080 NEXT ^ š 29242 FORI=C-BTOC+BSTEP2 60993 COLOR4 
8020 по=«7ә 20098 FORI=31T063STEP2 20250 ҒОВЈ=0-ВТОО+ВЅТЕР2 60095 FORI-12TO106STEP2 
8075 CLS 20100 SETC40, 1) :SET(86, 1) 20260 SETCI,J) 60102 SETCI,8):SET( 1,55) 
8200 GOTO522 20110 NEXT 20264 NEXT:NEXT 60119 NEXT 
8022 SOUND4,2:SC»SC«1:GOTO245 20111 GOTO20200 20265 IF2J=1THEN20273 60120 FORI-8TOSSSTEP2 
10000 ы1=@ 20112 IFP2-2THEN20140 20266 COLOR2 60132 SETC12, 1) :SETC106, 1) 
10005 5С=5С+1 20115 ҒОВ1«0Т01225ТЕР2 20262 FORI*J1-J3T0J1*J3STEP2 60140 NEXT 
10010 HzH*21H:KsK*23H 20119 SETCI,B):SETCRNOCI26) RNDC22) 20268 FORJ=J2-J3T0J2+J3STEP2 60145 COLOR2 
10020 сотовевае 20120 NEXT 20269 SETCI,J) 60152 FORI=12T031 
11000 R1=1 20122 ҒОВ1-16Т01225ТЕР2 20220 NEXT:NEXT 50160 SETC63, 1) 
11005 RH=111+RNOC15) 20124 SETCI,31):SETCRND(1102*16,31«*RND(3 20223 IF?W-1THEN20343 А 60165 МЕХТ 
11010 PRINT 12) 20225 COLOR3 60120 FORI=63T075 
11011 PRINTTOU ARE IN THE Roum} 20126 NEXT 20280 FORI=E-WTOE+WSTEP2 60180 FORJ-12T018 
11012 IFRH>123THENBS="TALL TREES":GOTOl1 20128 FORI-31TO63STEP2 20290 FORJsF-LTOF «Ы5ТЕР2 60190 SETCI,J) 
e18 сасын сы 20130 SETC16,1) 2@3@@ SETCI,J) 6@2@@ NEXT :NEXT 
11014 IFRH>118THENBS=EOIUN TREES :GOTO 20132 NEXT 20319 NEXT NEXT 60210 ҒОЕ1-63-657063%65 
11018 кесе Ж 20134 601022202 29349 COLOR4 60220 ҒОБ.)-31-65/2Т031%65/2 
11016 IFRH>=11 2THENBS="(COW SCRUBJ ":GOTO11 28148 FORI=@T0127STEP2 20350 FORI=SX-2TOSX+2 . 60238 SETCI, J) 
818 20142 SETCI,8):SET(RNOC126), RNOC22) 26285 ТЖ 60240 NEXT :МЕХТ 

Š 20144 NEXT 60243 COLOR4 
pide PRINT"YOUR NEXT SHOT MUST ELEAR 50 20150 FORI=OTOI 1 1STEP2 20328: 50815601083 60245 KS=INKEYS 
11019 PRINTBS 20152 SETCI,31):SETCRNOC110),RNOC312«31) 29388 SETCSX,I) 60246 I$=INKEY$ 
11020 PRINT 20154 NEXT 20385 NEXT 60250 SETCHH, KK) :SETCHH* 1, KK) 
11932 GOTOS25 20156 FORI-31TO63STEP2 26346 RETURN 60220 IF1$-""THEN50246 
12000 IFHT4RHTHENRA*RNOC6):G0TO12100 20158 5ЕТС111,1) Re xs COZBO"I-I€ 7 THENDO246 
12010 RA=RA72 20160 NEXT pases 18= INKETS :1F 62" "THEN20982 60285 ІҒ0І<-.5ТкЕМ15000 
12100 R1=@:GOTO682 20162 GOTO20200 SHIFTS ҮІНЕН20З82 60290 60708024 
13000 IFHT<BHTHENRA=@ :G0TO13100 20200 FORI=A-GTOA+G 20456 IRETURN 50300 PRINT@176, "3e" 
13010 RA=RA72 20210 FORJ=BB-GTOBB+G Goop CES. 50310 PRINT@208, 
13100 B1s0:GOTO682 20220 SETCI,J) ш PRINT"YOU WERE IN THE АМО HA 60312 PRINT@240, 

3 20225 NEXT:NEXT A 60314 PRINT@272,". 

ута оо ртт К ЕТЕ есе а CO ORO 60020 PRINTBEEN REPOSITIONED FURTHER BA 69320 PRINTQ297, "180. . Ба)... .е" 
PA!O=P] 20228 FOR1-BB-11TOBB :RESET(A, 1) NEXT СК б I 60330 PRINTQ336, ". " 
.15003 IFLP=1THENT2=T2+SC:TT=T2:P2=P2+SC- 29232 FORI-BB-11TOBB:SET(A, 1) :NEXT Pide PRINT ATE КӨ RENO TYE ОР 60332 PRINT@368, ". " М 
PA:Q=P2 20233 FORJ=BB-11TOBB-8 48 FORI-1T03080 :NEXT 60334 PRINTQ400, ". " 
15095 A$=" FOR THIS HOLE” 20234 FORI=ATOA+4 56058 6070715 60342 PRINT@432, "270" 
“epica 60062 nOOEC1) 60360 RETURN 


15010 PRINT@39, (CONGRATULATIONS) 

15015 PRINT@73, “PLAYER LP +1 

15020 PRINT 

15030 PRINT"YOU ARE IN THE HOLE” 

15040 PRINT"FOR "SC" SHOTS" ^ Z 
15060 IFSC=PA-2THENPRINT"EAGLE" 266 бы SP 
15062 IFSC=PA-1 THENPRINT'BIRDIE 
15064 1FSC=PATHENPR INT "PART ; 
15066 IFSC=PA+1 THENPRINT'ROGEY ;А# rox t 8 8 L | р Й 
15068 IFSC=PA+2THENPRINT {DOUBLE BOGEY) zA Уғар(- Dook о fo ararat 

B горгач + 
15069 IFSC=1THENPRINT IOLE IN ONET? У) :60 


ү еды by ХС. г; Sak» 


15022 PRINT"YOUR TOTAL SO FAR IS"TT 
15024 IFO=@THENPRINT“YOU ARE ON PAR FOR 

THE COURSE" 

15026 IFOD@THENPRINT"YOU ARE “Q" OUER PA 

R FOR THE COURSE 

15028 IFO<@THENO=ABS(Q) :PRINT"TOUR TOTAL 
IS"O"UNOER РАВ" 

15080 PRINT :PRINT 

16008 PRINT” PRESS THE (SPRCB" 

16010 K$=INKEYS 

16020 1$=INKEY€ :KO=RND(00) 

16030 00=00+ 1 : IFDD> 1е9ТНЕНОО= 1 

16040 IF 18="*THEN16022 

16050 1Е18<>" "THEN16020 

16060 CLS 

16190 IFPL=1THENHO=HO+1 :60Т0350 

16202 IFPL=2ANDLP=1THENLP=@ :HO=HO+1 :GOTO 

35e 

16210 IFPL=2ANDLP=OTHEN:LP=1 :6010519 

20000 COLOR4 

20001 ПООЕС12:бЕ=@ 

20002 IFPA=40RPA=STHEN20112 

20005 FORI=ƏTD122STEP2 

20010 SETCI, 8) SETCRNOC 126)  RNDC22) 

20020 NEXT ‘ 

20030 FORI =0T040STEP2 

20040 SETC1,31):SETCRNOC40),31+RNDC31)) 

20050 NEXT 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
380 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
940 


REM "KNIGHT'S CRDSS" 


REM "LUKE LUCAS. PAPUA NEM GUINEA" 


REM "OCTOBER 83" 


REM "RECODED BY К. В.К. 10-DEC-85" 


CLS 

MODE(1) 

FOR RZ = 1 TO 24 
CZ = RND(3) + 1 
FOR АХ = -RX TO RZ 


IY = SQR(RZERZ + AZRAZ) : 


SET( 60 + АХ, 
SET( 60 - АХ, 
SET( 65 + YZ, 
БЕТІ: 55 - YZ, 
NEXT AZ 
NEXT RX 
FOR RX = 1 TU 12 
FOR AZ = -RX TO RZ 


30 + YZ) 
34 = ҮІ) 
32 - М) 
32 + AX) 


ZY = SGR(RZ#RZ - АА): 


CZ = RND(3) + 1 
SET( 60 + AZ, 30 + ҮЛ) 
SET( 60 + AZ, 30 - YZ) 
SET( 12 + АХ, 30 + Үй) 
SET( 12 + АХ, 30 - Үй) 
SET(114 + АХ, 30 + Үй) 
SET(114 + AZ, 30 - Үй) 
БЕТІ 60 + AZ, 13 - YX) 
SET( 60 + АХ, 50 + YX) 
NEXT AZ 
NEXT RZ 
CX = RND(3) + 1 
FOR XZ =. 0 TO 127 
SET( XZ, 0) 
SET( ХХ, 1) 
SET( XZ, 62) 
SET( ХХ, 63) 
NEXT XZ 
FOR YZ = 


: COLOR CX 


0 TO 63 
SET( 0, Үй) 
БЕТ( 1, Үй) 
SET(126, Үй) 
SET(127, Үй) 

NEXT YZ 

FOR T = 1 TO 2000 

60 TO 150 


: NEXT T 


——— рын н lg Sao өч Е 


› COLOR CL 


: COLOR CX 


1 REM“ NII ° > a ees 
2 вым о E Lun AS. AMIA ығы OUI NEA” 


à немесс TUNER p Ys in 


ҮХ = МТО - 0.5) 


Se FORA-—-RTOR 
VO уен ( Ren-APADEYSINT CY LS) 


YZ = INT(ZY - 0.5) 
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The program is purely 
graphics and works as follows: 


KNIGHTS 


170) Line 16 sets random colour. 


nes 30-60 creates: what | 
CROSS Сы an inverted German Cross 
іп multi colours. 
2 Шы А тев гае) агам а circle іп 
(4 MS Lines 3 345-370 draw a square. 
(S30) Line 370 pauses to display 
the image. 

The end result looks like the 
'Knights Cross with oak leaves' 
just like the Germans issued | 
their war heroes. 

It shows how we can use the 
capabilities of the VZ200 todraw 
very intricate designs by allow- 
ing the composition and place- 
ment of the A Z Y in the lines 

(200-230 «м 396- -319 40-43 and 100-170, Le. A+60 
change to A-60 or A+60, 
30 + Y change to 30+ Y,A-60 all 
sorts of wonderful patterns can 
be created. 


G. Lucas 
Boroko PNG 


pr 
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“Sketcher” was written for the unexpan- 
ded У2-200. It allows you to draw іп 4. 
colours, rubout, clear the screen, and get 

a hard copy of your artwork (if you have a |” 


Sketcher 


by P Leon 


suitable printer attached). There are | the keyboard, the changes you will need 


instructions in the program. The pro- 


are at the end of the program listing. 


gram was written to use joysticks but if | These are the keys you-would use if you 
you do not have any or would like to use | use the keyboard. 


CHANGES NEEDED TO USE THE KEYBOARD 


350 
360 


400 
410 
420 
430 
440 
450 


` 468 


420 


AS=INKEY$ :AS=INKEYS 
IFAS<>"*, 200 


IFAS="W" ANDY <@, Y=Y-1 "UP 
IFAS="2" ANDY <В, Y=Y+1 › DOWN 
IFAS="A"ANDX>@, Х=Х-1 "LEFT 
IFAS="S"ANDX<A, Х=Х+1 RIGHT 
IFAS="U"ANDY>@,SETCX; Y) :Y-Y-1 
IFA$="N" ANDY <В, 5ЕТСХ, Т2 $ Т=Т+1 
IFA$="H"ANDX> Ø, 5ЕТСХ, Y) : Х=Х-1 
IFAS="J"ANDX <Я, SETCX, Y) : Х=Х+1 


КЕМ ЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 

КЕП Ж SKETCHER Ж 

КЕМ ЖВҮ PAUL LEONX 

КЕМ xAUGUST 1984Ж 

КЕМ XXXXXXXKKKKKKX 

REM 

GOTO 1000 

MODE (C1) -%=64 :Т=32 :COLOR2, Ø 
ñ=122:B=63 

RESET(X, Y) 
K$=INKEY$:I$=INKEY$ 

Iz=UñL (I$) 

IF J*>@ANDI*<STHEN COLORIZ 
GOSUB 3000 
A*=INPC46JAND31 
IFA% <> 31,400 
FORZ=1T04@:NEXT :5ЕТСХ, T) :FORZ-1TO40: 


А.Рс. Janes Vel 
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z NEXT :GOTO31@ 

400 IFAx=3@ANDY>@, Y=Y-1 'UP 
410 IFA*=29ANDY<B, Y=Y+1 *DOWN 

420 IFAX=27ANDX>@,X=X-1 "LEFT 
430 IFAx=23ANDX<A, Х=Х+1 ? RIGHT 
440 IFAX=14ANDY>@,SETCX,Y):Y=Y-] 
450 IFA%=13ANDY<B, SETCX, Y) : Y2Y *1 
460 IFA%=11ANDX>@, SETCX, Т) :Х=Х-1 
420 IFA*=7ANDX<A, SETCX, Y) :*-X*1 
480 IFA*=7ANDX<A,; SETCX, Y) :x2X*1 
500 GOTO 310 


1000 КЕМ ЖЖЖ INSTRUCTIONS xxx 

1030 CLS 

1060 PRINT@165, "INSTRUCTIONS (YZN)" 

1020 К$=1МКЕТ$ :Я$ =1МКЕТ$ 

1080 IFñs$s="N",300ELSEIFñ$="Y",1100 

1090 СОТО 1020 

1100 CLS-PRINT@6," жжж INSTRUCTIONS xxx" 
1110 PRINTG5S,"HSE IHE*"RIGHT JOYSTICK” 
1120 PRINT8129,"TO DRAW HOLD THE FIRE BU 
TTON" 

1130 PRINT@161; “DOWN AND PUSH THE JOYSTI 
CK IN" : 

1140 PRINT@133, THE REQUIRED DIRECTION." 
1150 PRINT@257,°TO MOVE WITHOUT DRAWING 
OR TO" 

1160 PRINT@289, RUBOUT, JUST PUSH THE JO 
ТЕК” 

1170 PRINTG321,"IN THE REQUIRED DIRECTIO 


GOSUB 20900 
CLS:PRINTG88, "ЖЖЖ COMMANDS xxx" 
PRINT865,"C - CLEARS SCREEN AND PLA 


PRINT@101;, “CURSOR IN THE CENTRE." 
PRINT8161,"E - WILL END THIS PROGRA 


PRINTG225,"P = WILL PRODUCE A СОРТ 


PRINT@261, "THE SCREEN IF A SUITABLE 


PRINT8293, “PRINTER IS ATTACHED. " 
PRINT@325, "E.G. SEIKOSHA GP-1807A" 
GOSUB 2000 


Я РС. TERIS 240) 
Р 24-13) 
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1280 CLS:PRINT88," XxxCOLOURS Жжжж" . 

1290 PRINT@65, "ТО CHANGE COLOUR WHILE DR 
AW ING" 

1300 PRINT@97, “JUST PRESS 1, 2, 3, OR 4. 


1310 PRINT@193, "1 = GREEN" :PRINT@2Q9, "2 

= YELLOW" | | 

1320 PRINT@225,"3 = BLUE" :PRINT@241,"4 = 
RED" | 

1330 PRINT@321, NOTE: COLOUR 1 (GREEN) I 

© THE" i 
1340 РКІМТӨЗ53, "SAME AS THE. BACKGROUND -C : 
OLOUR, " 


1380 GOSUB 2000 

1330 GOTO 1000 

2000 PRINT@449, "PRESS <C> TO CONTINUE" 
‚ 2010 K$=INKEYS$ :AS=INKEYS 

2020 ІҒА$ < "С", 2010 

2030 RETURN 

3000 K$-INKEYS 

3010 AS=INKEYS 

3020 ІҒАФ="" RETURN 

3025 IF ASD "P" AND AS ОЕ AND ñs$<>"C" 

RETURN 


3030 IFA$S="P" COPY :RETURN 
3040 ІҒАФ= "Е" END 

3050 IFA$="C" RUN3GO 

3060 RETURN 


A.F.C. Jas $$. Үй. 
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109 МЕХТІ 

120 Ғ=200:Ғ2=264 :Е3=215 :Ғ4=279 :М2=0 :№=0 : 
N2=0 :1=0 :13=0 :14=8 :N3=0 

121 N4-0 

130 А=СІМРС43) АМ031 ) :В=СІМРС46)АМ0312 :ІР 
ñ=31ñNDB=31THEN141 


Рипсһ 


Sock! ВН! Erki Punch is а 
game for two players that simu- 
12405 a boxing match. Full In- 
“structions аге іп the program. 


Grant Rowe 
Arnciiffe NSW 


ЕЕЕ 


1 REM PUNCH - BOXING GAME 

2 КЕМ ONLY JOYSTICKS NEEDED, 

3 КЕМ WITH BASIC 92-200 CONSOLE. 

10 CLS:COLOR8,@:PRINT:PRINT 

11 PRINT" 90008 

12 PRINT" В в 

13 PRINT" 8 в 

14 PRINT" SBAEN 

15 PRINT" R 

16 PRINT" B 

12 PRINT" 8 ghenu 

18 SOUND28, 1 :SOUND29, 8 

19 PRINT:PRINT" LADIES & GENTLEMEN; " 
20 PRINT"THIS IS THE MAIN EUENT22" 

21 PRINT"LEFT PLAYERC7-LETTERS)" ; : INPUTL 
$:IFLENCL$2» 7ТНЕМ21 

22 PRINT"RIGHT PLAYERC7-LETTERS)" 5 : INPUT 
R$:IFLENCR$J»2THEN22 

23 FORI=1TO16:PRINT :NEXTI 

24 PRINT"PUNCH IS A BOXING TYPE GAME," 
25 PRINT"FOR TWO PLAYERS.EACH PLAYER" 
26 PRINT"USES HIS JOYSTICK TO MOVE AND" 
22 PRINT"PUNCH HIS BOXERS ARMS. TO PUNCH, 


29 PRINT"A PLAYER PUSHES HIS JOYSTICK," 
30 PRINT"IN EITHER THE LEFT OR RIGHT" 

31 PRINT"POSITION.TO MOVE HIS ARMS, YOU" 
32 PRINT"PUSH THE STICK EITHER UP OR " 
33 PRINT"DOUN?" 

34 PRINT" PRESS S TO START." 

35 IFINKEY$="S"THEN]@@ELSEGOTO35 

100 CLS:PRINT@35,L$; :PRINTGSS,R$; 

101 PRINT@388, "BLOWS" ; :РКІМТӨ404, "BLOWS" 


102 COLORS :FORI235STO380:PRINTGI, "В" ; :NE 

XTI 

103 PRINT@483, "1? ''5?*'10 

0"; 

104 Х=419:Ү=435:0=0 

105 COLOR2:PRINTG100,"BBBE 
BORE" ; 

106 PRINT@1 32, "BERE 
шара"; 

102 PRINTG@164, "888a 
қа”; 

108 Q=@:FORI=)] TOS :Q=Q+32:PRINT@164+Q, "НН 

HH ини"; 


88 


ZC 


122259221 
% 
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131 W=@:]FA=3GORA=Z2STHENPRINT@F , " "ЗІР 


RINT@F2," "j; | 
132 IFB-300RB-29THENPRINTGF3-2," "3:PR 


ІМТӘҒ4-2," "3 

133 IFA=3@ANDN=@ANDN2=@THENF=F-32 : IFF «20 
OTHENF=208 :Н=3 

134 IFA=3@ANDW=3THENF 2=F 2-32 : IFF2<232THE 
NF2=232 

135 IFA=2SANDN=@ANDN2=@THEMF 2=F 2+32 2 IFF2 
> 3S2THENF 2=F 2-32 :W=4 

136 IFA=29ANDW=4THENF =F +32 : IFF> 320 ТНЕМЕ= 
F-32 

132 IFB=3@ANDN3=GANDN4=8THENF 3=F 3-32: [ЕР 
3<21 STHENF3=215 :W=1 

138 ІҒВ=ЗёАМОИ= 1 THENF4=F 4-32: IF F4<2427THE 
NF4-242 

139 IFB2298NDN3-20RNDN4-0THENF4-F4*32:1IFF 
4» 35 2THENF 4=F 4-32 2W=2 

140 IFB=29ANDW=2THENF 3=F3+32 : IFF3> 320 THE 
NF3=F 3-32 

141 IFA=27THENF=F +] :М=М+] :N=1 :GOSUB270 
142 IFA=23THENF 2=F2+1 : 12211241 :N2=1 :GOSUB 
280 

143 IFA<> 238NDN2-1THEN14SELSE IFA<> 27ANDN 
=1THEN144ELSE146 

144 PRINT@F, " "3 3F=F-] :М=1-1 : IFM=@THEN 
N=@ :GOTO146ELSEGOTO1 46 

145 PRINT@F2, " "5:Р2=Р2-1 :М2=М2-1 :ІҒМ2 
-ӨТНЕММ2-0 

146 IFB-227THENF3-F3- 1 :М3=М3-1 :N321 :GOSUB 
250 

142 IFB=23THENF4=F 4-1 :M4=M4-1 :N421 : GOSUB 
260 

148 IFB < 238NDN421THEN210ELSE IFB<> 228NDN 
3-1ТНЕМ200 

150 605085660 :GOT0130 

200 PRINT@F3-2, " ";:F3=F3+1:FH3=F3+1:IF 
ПЗ-ОТНЕММЗ-0 

202 8070150 

210 PRINT@F4-2, " 
П4-ӨТНЕММ4-0 

215 8070150 

250 IFPEEKC28669+F 3)=1SSTHENGOSUBS@@ : SOU 
ND1 , 4 =GOSUB3@@ELSEGOTO252 

251 PRINT@F3-2," "3 °F 3=F3+8 :М3=м3 
%8:В-31:КЕТИЕМ 

252 ТЕРЕЕК(28663+Е3)=175АМОМЗ<-ЗТНЕМ$ОУН 
025, 1 :GOTO2S3ELSERETURN 
253 SOUND27, 1 :PRINTGF3-2, " 
3 :M3=M3+3 : RETURN 


"3 :F4=F4t] :M4=M4+] IF 


";:ЕЗ=ЕЗ+ 


260 1ЕРЕЕКС28669+Е42=159ТНЕМ60$И85@@:5$00 P 
| 


р%%-%4 tof 2, 


ND1, 4 :G60SUB399ELSEGOTO262 

261 PRINT@F4-2, " "31Е4=Е4+8 :M4=M4 
*8:RETURN 

262 ІҒРЕЕКС28669%Ғ4)-125ам0М4<-ЗТНЕМ5ОЦМ 
D25, 1 :GOTO263EL SERETURN 
263 SOUND22, 1 :PRINTGF4-2, " 
3 :M4=M4 +3 :RETURN 

228 ІЕРЕЕКС28624%Ғ2-15ЭТНЕМ50ММ01;4:5050 
B4@@ELSEGOT0272 
221 PRINT@F-8, " 
RETURN 

222 IFPEEKC28674+F )=17SANDM> ЗТНЕМ50ЦМ025 
‚ 1 SGOTO273ELSERE TURN 

223 SOUND27; 1 :PRINT@F-3; " 
=М-3 :RETURN 

280 IFPEEK(28674+F 2)=1SSTHENSOUND] , 4 :GOS 
UB4¢@@EL SEGOTO282 
281 PRINT@F2-8, " 
F2-8:RETURN 

282 1ЕРЕЕК(28674+Е2)=1 75АНОМ2> 3THENSOUND 
25, 1 :GOTO283ELSERE TURN 

283 SOUND27, 1 :PRINTGF2-3, " 
3 :M2=M2-3 :RETURN 

302 COLOR4 :PRINT@X, "R" ; :PRINTQX*32, "Ш" ;: 
Х-Х%1:ІЕХ-429ТНЕМ302 


"ЗІЕ=Р-8 :М=М-8 : 


"3 :F=F-3:n 


";:12=12-8:Е2= 


"ҙ:Ғ2-Ғ2- 


"j:iF4=F4+ 


301 RETURN 
302 GOSUB700 
303 РКІМТӨ55, "WINNER" ; -FORI=1TO1@@:SOUND 
RND( 38); 1 :NEXTI :GOTO10 
400 COLOR4:PRINTQGT, "9" ; :PRINTQY*32, "8"; : 
Y2Y*1:IFY2445THEN402 
401 RETURN 
402 GOSUB200 
403 PRINTQ35, "WINNER" ; :FORI-1TO100:SOLUND 
RNDC30),; 1 :NEXTI :GOTO10 
500 COLOR3:PRINTGF;" R8";:PRINTGF2," ШИ" 
;:PRINTGF3-2,"MB "; 
501 PRINTQGF4-2,"W8 ";:COLOR2:PRINTGF, "В" 
PSPRINTGF2, "B"; 
5602 PRINTGF3, "№"; :PRINTGF4, "№"; 
503 RETURN 
200 IFY=44STHENR=17ELSER=G 
210 FORI-100TO324STEP32 :PRINTGI-*R,; " 
"3 NEXTI 
220 RETURN 
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SPACE STATION DEFENDER 


In Space Station Defender you are 


By Paul Shultz 


broken down. You operate in the 


requested (strangely enough) to 
defend a space station. You only 
have one missile left and your 
automatic missile control has 


fourth quadrant and guide the mis- 
sile by giving it an angle from 180 
degrees. This is because of the 
radar scan display. Instructions are 


CLS 

COLOR 

ROUSUE1Sgwd 

ЕРЕК БЫС ЫЕ Бн ДШ DEFEILDEIEE 

FRIHTGzZ229."MEITTEH EY PAUL ӘНШ Та" 

FÜRIsiTüzüdaa:HEsTI 

ГІ 

ПЕН ЗНАЯ 

РЕІНТІУРІ SS. "Ика: B dL LES nd " 

РЕТНТВЕЕУ, "У — WMS": PRIA Bees. CH — 

пф=1НКЕ''%: IFG$-""THEH3S 
IFiuSz"H'"THEHZAEB 

REM IHSTRELICTICDHZ 

CL 

РЕІНТ"ҮТШЕ COMPUTER DETECTED 

РЕІНТ" EHTERIHG ҮПШЕ 

FRIHT" SIGHALS ACCORDING TO Ба Ат 

FRIHT" ІТ ІЗ ASSUMEG. THAT OBERT 

PRINT" DECIDE TO HTTHCKIT. 

РЕТНТ "ЕЕВЕМАММЕНТ OF YOUR STATIOH 
РЕТНТ"ОНЕ MISSILE TO. DESTROY 
РЕТНТ" MODEL WHICH Із WOT 
FRIHT"HIT KETLIKH КЕМ 
ІНРІШТІЗФ 

CLS 

РЕІНТ"ЕТЕН THOUGH 
FRIHT"HR'E Я COMPUTER ТП HELF 
РЕІНТ"ІНЕСЕМАТІОН Үйші) HAVE RVIHELE IS:" 
FRIHT"i.CDODRDIHRHTES ПЕ ЕНЕМ SHIF" 
FREIHT"z.CünDRDIHRTES ПЕ T OLIF: HISSILE" 
FREIHT"S.DISTRHHCE SHIP - MISSILE" 
FRIHT"4.DISTRHHCE SHIF - YOUR STATION" 
FRIHT"S.ERHDRE SCAM OF YOUR ШІНСЕНМТ. 
РЕІНТЧГЕТТЕЕ "E' IH SPACE FOR 
РЕТНТ" ТНЕПЕМАТ ТОН DW “ОПЕ 
FRIHT"EEN" 
РЕІМТ"НІТ ЕЕТУЕН KE 
INPUT 
CLS 
FRIHT' YOU GUIDE 
PRINT" ІЛІНБЕННТ 
PRIWT" TO HELF ҮІ 


et ка а à — а] 


пл Li САЗ D Py = mmm 


DIU 


AH ин- 


a) maa m tà o Tun cin? 


— = 
m 


Mp oca pm CA баса Qo o 


T, 


n + аа hà m Га Om 
ыл) 


[ы] 


pg 
- 


ЕНЕМ 
COHHEL TED TO 
TU CUBTIBMUE" 


ana aum 
кайыл tat кеи 


TAIR Missle LS 


A maa 1 
mi RN im mig 


Cu amr алат rn c US m cm mt 


To СРІМТІНШЕ" 


YOUR MISSILE В“ 
FROM SOUTH" 
“OU ARE ALSO GIVEH 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 


TACOMA EGRE BIN — (m 1 On E 


= 
-. 


Aa 


PC GAMES rot ç 


7“ Сс Зат 


IDEHTIFIED 
WUADRAHT OBJECT DOES HOT 


BUIGEG PMERIHLIBIL L 5? 
“VOU, " 


GIVIHGIT 


VELDCT TIES 


detailed in the listing and the only 
point to remember is that even in 
levels 2 to 5 velocity does not 
change. А comma must also be 
typed behind the angle figure. 


SPACECRAFT" ; 
КЕЗРОНЬ ТО"; 


FEDERATION REGULATIOHS, " 
IZ RHHEHEHM' 
LIHFORTUHRTELL' СОЕ 
“OW ARE 
SHIF. 
ОЕ COMPUTER " 


SHIF AHD”; 

TO "; 

EEFT HETA app ats 
THIS 15 АН OLG”; 


Tü CALL IT FRIHT "; 
SOUR DIEECTIOH.TU 
SCREEM ЕНШЕ 


CALL "; 


FRESS SPACE 8: 


YOUR" ; 


OF BOTH "3 


РКІМТ"ЕМЕМ" SHIE AND "OUR MISSILE" 

PRINT"RLL DISTANCES ARE IN STAMDARD FEDERATION LEAGUES "Jj 
PRINT" 1SFL=3696KM 2" 

PRINT"ALL "VELOCITIES ARE IN SFL-^S" 

PRINT" YOUR QUADRANT IS 1000х%1000 SFL" 

PRINT"REST OF THE OPEN SPACE IS GUARDED Ву RUTOMRTIC"; 
PRINT" DEFENCE STATIONS" Е 

PRIHT"TO CONTINUE HIT RETURN KEY" 

INFUTOS 

CLS 

PRINT" “:PRINT: PRINT: PRINT 

PRINT"WHAT LEVEL OF GAME DO ‘YOU WANT TO PLAY 1,2,2 OR 47" 
PRINT"AT LEVEL 2-4 ‘YOU CAH CONTROLSPEED OF YOUR MIS"; 
PRINT"SILE IF (ШИ WISH. "; 

PRINT"IF YOU TYPE 'U'RFTER YOUR DIRECTION SEPARATED BY "j; 
РЕТНТ"СОММЯ ‘SPEED WILL INCREASE 'D' WILL DECREASE IT" 
INPUTA1 

IFA1=1 THENLETO2=6 

IFA1=2THENLETD2Z=4 

IFA1=3THENLETD2Z=3 

IFA1=4THENLETD2Z=2 


CLS 
REM MISSILE RHD SHIP COORDINATES 
ХМ=0 : ''Mza 


LETX=RND¢ 460 +660 

(ЕТҮ-ЕМОс 400 +666 

LETSP=INT¢ RND« 60 2%40 2 

LETSM=INT¢ КМО 20 2%302 

LETM=INT“ SOR. Xx^2*Y^2 )⁄SF' 2 

СЕТС 1 =50К САМ 2+6 Y-YM 5^2» 

LETD-SQRCxk^2t*Y^25 - 

PRINT:PRINT:PRINT:PRINT 

РКІНТТНВ 10 ›"ЯТТЕНТТОН" 

PRINT"UNIDENTIFIED SPACECRAFT HAS ENTERED YOUR": 
PRINT" QUADRANT. ALL ATTEMPTS TO CONTACT THE SHIP ";: 
PRINT" HAVE FAILED SO FAR" ; 
PRINT"YOU НАМЕ"; М; "MINUTES BEFORE ENEMYFORCES REACH YOUR "j 
PRINT"STRTIOH AND TOFIRE YOUR MISSILE TO DESTROY THESHIP" 
FORK=1TOS 

SOUNDS, 4: SÜUND12, 6 

NEXTK 

PRINT"HIT RETURN KEY TÜ CONTINUE" 

INPUTS 

CLS 

ҒОЕ.)ч17050 

IFJ=1THEH12:30 

LETAM=AM< 360/< 2Ж3.141622 

LETH=RHND< 260 > 

ІЕН>ӨТНЕНО0Т0734 

ІЕНе1ТНЕН620 

IFN2ZTHEN640 

IFNzZ3THEN669 

IFN=4THEN68 

ТЕН=5ТНЕН?00 

CLS 

PRINT:PRINT:PRINT, 

PRINT"YOUR MISSILE EXPLODED, YOU HAYE  ";M;" MINUTES TO"; 


en ee A —MÁ—Á 87У, 
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PRINT" ESCAPE BEFORE" 


616 

617 PRINT"YOUR STATION IS OCCUPIED BY ENEMY FORCES. " 

618 GOTO?50 

628 CLS 

621 PRINT: PRINT ‘PRINT 

622 PRINT"MY SCANNERS INDICATE AN UNARMED TRADING SHIP THERE": 
625 PRINT" IS PROBABLY FAULT IN THEIR COMMUNICATIONS s 

630 PRINT"YOU CAN CALL THE ALARM OFF" 

635 GOTO?50 

640 CLS 

642 PRINT:PRINT:PRINT 

643 PRINT"THE SHIP HAS BROKEN THE RADIO ‘SILENCE AND IDENTIFI"; 
645 PRINT"ED ITSELF ASA FEDERATION BATTLECRUISER UNDERCOMMAND" ; 
650 PRINT" OF YOUR BEST FRIEND CAPTAIN STARDUST. YOU CAN "; 
655 PRINT"GET CHAMPAGNE CHILLED - ARRIYAL IS EXPECTED IN ";М; 
656 PRINT" MINUTES" 

657 0070250 

660 CLS 

661 PRINT:PRINT:PRINT 

662 PRINT"SHIP WAS IDENTIFIED AS Я РЕБЕ RATION PATROL SHIP "j; 
663 PRINT"AND IS BADLY DAMAGED. GET YOUR REPAIR CREW READY"; 
666 PRINT" AND STANDBY. SOME MEDICAL HELP WILL BE NEEDED" 

670 6070250 

680 CLS 

681 PRINT: PRINT: PRINT 

683 PRINT"RN ENEMY SHIP HAS ACCIDENTALLY EXPLODED"; D; "SFL AWAY" 
685 PRINT"YOU CAN CALL ALARM OFF AND ENJOYYOUR DINNER" 

690 6070250 

700 CLS 

701 PRINT! PRINT: PRINT 

702 PRINT"MY SCANNERS INDICATE A FLEET OF ENEMY SHIPS FOLLOWIN"; 
705 PRINT"G AND YOU CANNOT POSSIBLY STOP THEM. YOU ННУЕ";М; 
710 PRINT" MINUTES TO PACK YOUR VALUABLES AND TAKE A FRENCH"; 
711 PRINT" L ? 

790 PRINT"WOULD YOU LIKE TO TRY AGAIN YN >" 

752 INPUTQS 

753 IFQS="7"THENS4@ELSEEND 

754 LETAPATNC Y7% > 

760 LETZzD^/1000 

тгд LETZA=RNDC 252%2 

780 LETZB=RNDC 252%2 

783 Хішх:ҮішҮ:Х2х-ХМ:Ү2-ҮМ 

790 LETX=INT¢C X-SPXCOS¢ AP 2+2 > 

800 LETY=INTC Y-SP&S INC AP >+ZB > 

880 LETXM=INTC XM+SM¥SINC AM > > 

890 LETYM=®INT< ҮМ+5МЖСО5 ЯМ >) 

900 LETD1zINTCSQRCCX-XM2^24C Ү-ҮМ2722> 

910 LETDzINTCSGRCX^2*Y^22) 

920 LETM*xINTSGRCX^24Y^25/SP ›+5 

970 IFD1<D2THEN1160 

1000 ІҒО>5РТНЕНМ1050 

1010 CLS 

1015 CLS 


1020 PRINT:PRINT: PRINT 

1025 PRINT"ENEMY SHIPS HAVE JUST, ANDED ANDYOUR FORCES "j 
1030 PRINT"SURENDERED. BAD LUCK" 

| 1035 PRINT" WOULD YOU LIKE TO TRY AGAING YAN > 


1040 INPUTQS 
1045 IFQ$z"Y"THEN34O0ELSEEND 
1050 IFD1«STHEN1160 
1655 IFD1>SM+SPTHEN1 236 
1060 X3=¢€ X-%1 2/10: Y3=C Y-Y1 9716 
1070 X4=¢ ХМ-Х2 9718: Y4zC YM-Y2 9716 
. 1080 ҒОК(1-17010 
1090 X1=X1+X3:Y1=Y1+Y3 
1100 X2=A2+X4:Y2=Y2+Y4 
1110 01=ІНТ‹ 508 (кі1-к22^2+0Ү1-722^2 77 
1120 IFD1«D2THEN1160 
1130 NEXTL1 
1150 GOTO1230 
1155 CLS 
1160 CLS 
1161 PRINT:PRINT:PRINT:PRINT | 
1170 PRINT"CONGRATULATIONS YOUR MISSILE HASJUST DESTROYED THE " 
1186 PRINT"ENEMY SHIP." | 
1190 PRINT"NOW YOU HAYE TIME TO RELAK AND CELEBRATE.” 
1200 PRINT"DO YOU WANT TO PLAY AGAING YZH) 
1216 INPUTQS 
1220 IFQS$="7" THEN34GELSEEND 
1236 CLS 
1231 REM COORDINATE PRINTOUT 
1233 SOUNDS,6 
1235 PRINT"ENEMY SHIP IS";D;"SFL" 
1243 PRINT"FROM YOU" 
1245 PRINT 
1250 PRIHT"DISTRHNCE ІМ SFL" 
1260 PRINT"ENEMY SHIP MISSILE" 


1270 PRINT"SOUTH:";Y;" "¿YM 
1280 PRINT"ERST :";A;" "SAM 
1285 PR 


INT 
1290 РКІМТ"ЕМЕМУ SHIP IS";D1; 
1300 PRINT"SFL" 
1305 PRINT"FROM ‘YOUR MISSILE" 
1306 PRINT 
1310 PRINT"VELOCITY IN SFLZS" 
1320 PRINT"ENEM' SHIP MISSILE" 
1330 PRINTUSING" ####. 4" ; SP; 
1331 PRINT" c 
1335 PRINTUSIHG"####.#";SM ` 
1336 PRINT" YOUR DIRECTION IN DEGREES?" 
1337 IFA1=1THEN134@ 
1338 INPUTOS, AS 
1339 60701350 
1340 INPUTOS 
1350 IFQ$="R"THEN1466 
1360 (ЕТНМ-УНІ С 0% 2 
1362 IFA1=1THEN1 736 
1363 REM VELOCITY UPDATE 
1364 IFAS="U"ANDSM< 97 THENLETSM=SM+3 
1365 IFAS="D"ANDSM>3THENLETSM=SM-3 
1370 GOTO1730 
139@ REM RADAR SCAN - GRAPHICS 
1400 (ЕТЕ-х/1000Ж126: ЕТЕ-Ү/1000Ж60 
1403 (ЕТЕ1-ХМ/1000Ж126:(ЕТЕ1-ҮМ/1000Ж60 


+ оёз, Фу РС САМЕЅ 


1406 МОБЕС 127 z 

1407 Ce=INKEYS 

1408 IFC$z" "ТНЕНЬОТО123@ 

1410 COLOR2 

1420 6ЕТ(1,0215ЕТ<2,02:8ЕТ(0,1); 
1430 SETC1, 12: SETC2, 1 2: SETC S, 1 > 
1440 SETCO, 25: SET 1, 2»: SETC 2, 22 
1450 ЅЕТ< 3,2): SETC1, 3»: SETC2, 32 
1460 COLOR4 

1470 FORI=1T0O3 

1480 SETCE,F*I» 


NEXT 
1505 CS=INKEYS 
1506 IFC$z" "ТНЕНМ1230 
1510 SET(E+1,F2:SETCE+1.F+1)2 
1520 ЅЕТ‹Е+2, +1 >: SETCE. [+3 5 
1530 SETCE+1,F+2):SETCE+1,F +29 
1540 SETCE+2,F+2>:SETCE+2,F +3 > 
1542 СФ-ІМКЕҮ% 
1543 IFC$z" "THEH1230 
1545 ІҒЕ1<00ОЕКҒ1< ТНЕМ159й0 
1547 IFE1>12G0RF 1 >66THEN1S96 
1550 COLORS 
1555 FORI=1TO3 
1556 SETCE14+1,.F 1419 
1558 NEXT 
1560 SETCEI*1.F1»'SETCEL1,F1*12 
1570 ЗЕТ5Е1%2,Ғ1%12:5<ЕТСЕ1:Ғ1ғ22- 
1580 SETCE1*2Z,F1*2)5:SETCE1*2.F1*2) 
1596 COLOR2 


1600 FORI-1TO120. 

1610 5ЕТСІ,1/22:5ЕТС 1,60; 

1620 МЕХТ 

1625 CS=INKEYS 

1626 IFC$=" "THEN1230 

1630 ҒОКІ-3Т060 

1640 SET(0,I) 

1650 NEAT 

1660 FORI-1TO2 

1670 5ЕТС24,61%12:5ЕТ(48,61%12 
1680 5ЕТ(72,61%1):5ЕТ(96,61%41;) 
1685 CS=INKEYS 

1686 1ЕС®=" "THEN1230 . 

1690 SETC 96,61%12:5ЕТ(120,61%12 


1700 5ЕТС1,122:85ЕТ(1,242:5ЕТ(1,36; 
1710 ЅЕТ‹ 1,48):5ЕТ( 1,60; 

1720 50701407 

1730 NEXT J 
1800 PRINT" rmt o ӘЗЕР ЕНЕТІНІ ЕРЕН ОНИ ня ы. кукы El 

1810 FORI=1T013: PRINT" m m"; :NEXT 
1820 PRINT" ——" 

1830 RETURA — 


— 
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LOST FORREST > >: 


This program will fit into an unexpanded VZ-200 but only just and spaces should be missed out where they are not necessary. 


The Player can move from one location to another by using the commands: 
N - NORTH 
$ - SOUTH 
W - WEST 
E- EAST 


The command 'HELP' will display a list of verbs (or words) that the computer understands. : 
These words will aid the player in his search for the missing 'Green God' and several other treasures. 


When the player thinks he has all of the missing treasures he shouldreturnto the location of the large trees’ and type the command ‘SCORE’. If 
all the treasures have been found then a winning message will be displayed. 


68 CLEARISS 

78 М=17:4=18:6=14 

88 GOSUB1399 

98 CLS:PRINT"LOST FOREST" 

1@@ PRINT"----------- : 

195 РКІМТ"МОУЕ NO.";jH: IFM>SSTHENSSSS 

119 PRINT"YOUR LOCATION" 

120 PRINTDS(RM) 

138 PRINT"EXITS: ^j 

140 FORI=1TOLEN(RS(RM) ) :PRINTMIDS$(RS$(URM),I,1)05;5"," 5 sNEXTI 
178 PRINT:FORI-1TOG 

190 IFL(I)ZRHMANDF(I)-2THENPRINT"YOU CAN SEE ";O$(I);" HERE" 
200 МЕХТІ 

210 PRINT"============================" : РЮТМТМ$: МФ=" ИНАТ" 
238 INPUT"WHAT WILL YOU DO моу"; @$ 

248 у%="":Ш8%="":\/В=0:ОВ=@ 

258 FORIZ1TOLEN(8$) 

268 IFMID$(89$,1,1)-" "ANDVS=""THENVS=LEFTS (Q$, 1-1) 

278 IFMIDS(Q$,I+1,1)¢>" "ANDVS2""THENWS-ZMID$(8$,I*1,LEN(G$) -1) 
275 IFMID$(8$,1*1,1)«5" "ANDVS<>""THENI=LEN (Q$) 

289 NEXTI 


298 IFWS=" " ТНЕМИФ=0%Ф 

399 FORI=1TOV: IFVS=Vs (I) THENVB=I 

319 NEXTI 

339 FORI=1TOW: IFW$=0$ (І) ТНЕМОВ=Т 

348 NEXTI 

368 IFWS>""ANDOB=STHENM$="THAT’S SILLY" 

378 IFVB=STHENVB=V+1 

389 IFWS=""THENM$="I NEED TWO WORDS" 

390 IFVB>VANDOB>STHENMS$="YOU CAN’T *"+0$+"'" 

488 IFVB>VANDOB=STHENM$="YOU DON'T MAKE SENSE" 
410 JFYB<VANDOB>SANDC (ОВ) =@THENM$="YOU DON'T HAVE °"+We+"?* 
468 IFVB=1 THENGQSUBSOSEL SE FFV B20 THENGOSUBS 7B 
462 IFVB=30RVB=40RVB=5O0RVB=60RVB=7 THENGOSUB642 
466 IFVB=80RVB=9THENGOSUB989 

478 IFVB-19THENGOSUB1239ELSE IF VB=1 1 THENGOSUB1 969 
472 IFVB=12THENGOSUB1 199ELSEIFVB=1 3THENGOSUB1 129 
474 IFVB=14THENGOSUB! 15GELSEIFVB=15THENGOSUB1 179 
476 IFVB=16THENGOSUB1219ELSEIFVB=17THENGOSUB1 239 
478 IFVB=18THENGOSUB1299 

492 GOTO9S 

500 PRINT"WORDS I KNOW: " 

510 FORI=1TOV:PRINTVS(I)3", °$SNEXTI 

540 М$=" " ; РКІМТ: 605081286 


560 RETURN 

520 PRINT"YOU ARE CARRYING: " COMPUTER INPUT 
580 FORI*1TOG:IFC(I)&4THENPRINTOS(I);",*; Feb ух в 27 
598 МЕХТІ ` 
618 M$="":PRINT:GOSUB1289 

638 RETURN 1 ofa. 


640 р=0: IFOB=ØTHEND=VB-3 

789 IFRM=6ANDF (8) <>2THENPRINT"YOU FALL ":GOTOS3S529 

785 IFRM=6ANDF (8) =2ANDD=4THENF (8) 28 

790 IFF(12)-9ANDRM*8THENPRINT"THE EAGLE ATTACKS":GOTO3999) 
800 IFRH=1ANDF (11) «ӘТНЕМРКІМТ"НАМК ATTACKS SAVAGELY": 607039906 


850 RL*LEN(R$(M)):F(12) «8 
860 FORI=1TORL: US=MIDS(RS(RM),I,1) 

880 IF (US="N"ANDD=LANDF (17) =) THENRMSRM-3:HMzM*1:F (17) «1 

898 IF (US="S"°ANDD=2ANDF (17) #8) THENRH=RH+3:H=H+1:F(12)=1 

900 IF (US="W"ANDD=3ANDF (17) =8) ТНЕМЕМ=ВН- 1: М=М+1:Е (17) =1 

910 IF (US="E"ANDD=4ANDF (17) 20) ТНЕМЕМ=ВМ+ 1: М=М+1:Е (17) =1 

928 NEXTI 

930 МФ= "ОК" 

935 IFF(17)=ØTHENM$="YOU CAN'T GO THAT WAY" 

940 IFD<1THENM$="GO WHERE" 

978 RETURN 

980 ІҒОВ›9ТНЕММФ="І CAN'T GET "*W&:RETURN 

982 IF (OB=10ROB=2) АМС (6) «d THENM$- "YOU NEED А CLOTH BAG":RETURN 
985 IFL(OB)<>RMTHENM$="IT’S NOT НЕКЕ" 

998 IFF(OB)<>STHENMS="WHAT "*W$-"?" 

1000 IFC(OB)=1THENM$="YOU ALREADY HAVE ІТ" 

1010 IFOB>SANDL (ОВ) =RMANDF (ОВ) =ƏTHENC (OB) =1:M$="YOU HAVE "+W$ 
1911 IFOB22ANDL (OB) =RMANDF (OB) =@THENF (OB) =1 

1828 RETURN 

1838 IFRM=8ANDOB=SANDC (5) =1АМОЕ (12) =@THENM$="IT FLYS OFF!'* 
1031 IFRM=8ANDOB=SANDC (5) =1 АМРЕ (12) =@THENF (12) =1:С (5) 28 

1040 IFRM=1ANDOB=SANDC (5) =LANDF (11) =@THENMS="MISSED!!!"°:C(5) =0 
1046 IFOB=7ANDC(7)=1THENM$="IT BREAKS, OBJECT FALLS OUT” 

1047 IFOB=7ANDC (7) =1 ТНЕМЕ (1)=2:C(7)=8:L(1) =RM 

1048 IFC(OB)=1THENM$="WHAT A TEMPER! !":C (ОВ) «б 

1050 RETURN 

1868 IFRM=1ANDOB=1 1ANDC (4)=1THENM$="IT FLYS OFF WITH BERRIES” 
1878 IFRM=1ANDOB=1 1АМОС (4) =1 THENF (11) 21:C(4) x0: RETURN 

1998 RETURN 

1100 IFRM=3ANDOB=1@ANDF (18) =STHENMS="YOU MAY NEED THIS” 

1101 IFRM=3ANDOB=1@ANDF (18) =@THENF (6) =8:F (12) «1 

1118 RETURN 

1128 IFOB=13ANDRM=9THENM$= "OK": ВМ=6:М=М+ 1 

1148 RETURN | 

1150 IFRM=6ANDOB=8ANDC (8)=1THENH$="TRY THIS EXIT":F(8)=2:C(8)=@ 
1162 RETURN 

1178 IFRH=17ANDOB=14ANDC(9)=1ANDF(14)=@THENHM$="YOU DIG А HOLE" 
1175 IFRM=17ANDOB#=14ANDC (9) =LANDF (14) =ЭТНЕМЕ (14) =1:Е (3) «8 
1188 RETURN 

1218 IFC(OB)=1THENC (OB) =@:L (OB) =RM:F (OB) =@:H$= *DONE ° 

1228 RETURN 

1238 S=8:FORI=1TOG: IFC(I)=1THENS#S+1 

1248 NEXTI 

1271 IFS=>SSANDC (1) #С (2) ЖС (3) ¥C (6) C(9) CÓOOTHENPRINT"WELL DONE "| 
1272 IFS=>S@ANDC (1) ЖС (2) ЖС (3) ¥C (6) XC (9) COBANDRHZ16THEN1274 
1273 PRINT"SCORE $0 ҒАБ«"%5:60Т01280 

1274 SC-(58-M)*S*1:PRINT"YOUR SCORE=";SC 

1275 PRINT*YOU'VE WON!'"*:GOTO3229 

1280 INPUT"PRESS RETURN ТО CONTINUE";CT$ 

1298 RETURN 

1398 DIMR$(12),D$(17),0$(4V) ,VS(V) ,C(W),L(G),F (Ww) 

1328 ПАТА13,0,17,15,11,3,13,6,6,3,1,8,9,17 

1338 FORI=1TOG:READL (І) : МЕХТІ 

1368 DATAHELP, INV,GO,N,S,V,E, GET, TAKE, THROW, FEED, ROLL, CLIMB 
1365 DATADROP, DIG, LEAVE, SCORE 

1380 FORT=1TOV: READV®(I) : МЕХТІ 

1418 DATAE,WE,SW,E, SWE, NSW,E, NE, NSW, SE, SWE, NW, NE, NSWE, SW, E 
1428 DATANW,N 

1432 FORI=8T017:READRS(I) : МЕХТІ 

1520 DATATREES, MORE TREES,EVEN MORE TREES, ANOTHER TREE, TREES 
1538 DATAA TREE,UP TREE,TREE, TALL TREES,GREEN TREE,MORE TREES 
1540 DATAOAK TREE,BIG TREE,OVERGROWN TREE,SHORT TREE 

1550 DATATREES,LARGE TREES,MANY TREES 

1580 FORI=9T017:READDS(I) : МЕХТТ 

1618 DATAGREEN GQD,LAURELS,GOLD LEAF, BERRIES, ACORN, SACK 

1620 DATABEEHIVE, ROPE, TROWEL, LOG, HAWK, EAGLE, GREEN TREE 

1630 DATATREE, NORTH, SOUTH, EAST, WEST 

1649 FORI=1TOW: READOS(I) : МЕХТТ 

1678 Е(1)=1:Е(3)=1:Е (6) «1: ВМ=ВМО (18) -1 

1675 ІЕКМ<9ТНЕМ1620 

1688 H=1:RETURN 

3888 FORI-S1TO28998:NEXTI:CLS:PRINT"YOU ARE NOW OFFICIALLY DEAD” 
38198 PRINT"YOU HAVE NOT MANAGED TO COMPLETEYOUR FOREST WALK" 
3828 PRINT: INPUT°DO YOU WANT TO PLAY AGAIN"$PAS 

3838 IFLEFTS(PAS, 1)="°Y"THEN6S 

3948 CLS:END | 
3599 ЕОБІ-1702000:МЕХТІ:СІ5 

3512 PRINT"YOU'VE LANDED IN A WOLF TRAP” 

3528 РКІМ№Т:60703619 

4000 CLS:PRINT"YOUR TIME HAS RUN OUT AND'YOU ARE TOO WEAK ТО"; 

4012 PRINT"CONTINUE":GOTO3219 | 


Сотротєе имрот р 28. КЫЗУ 202, | 


1 REM DECOY GAME FOR Uz-200 
2 REM WRITTEN BY GRANT ROWE 
4 POKE3@862, 80 :POKE30863, 52 
5 COLOR8,0 
10 CLS 

159 PRINT. 
20 PRINT" 
30 PRINT". 
40 PRINT" 
50 PRINT ; 
55 PRINT"LEFT JOYSTICK TO MOVE SHUTTLE," 
.56 PRINT"EITHER BUTTON TO FIRE." 

52 PRINT"YOU ARE TO HOVER OUER A PART" 
58 PRINT"OF THE PLANET, ZELTA. WHILE OUR" 
59 PRINT"FIGHTERS ARE TO ATTACK ON" 

60 PRINT"THE OTHER SIOE OF THE PLANET," 
бі PRINT"YOU ARE THE DECOY FOR ZELTA" 

62 PRINT"SHIPS AND GROUND FIRE..." 

63 PRINT"WARNING:DON? T LEAUE ATMOSPHERE. 
64 PRINT"GOOD LUCK,.PRESS S TO START." 
20 L$=INKEY$:IFL$="S" THENGOTO1 @@ELSEGOTO 
20 

100 S=@:M=3:H=20 

122 MODEC1):COLOR,@ 

130 FORI=127TO@STEP-1 :COLOR3:SETCI,62):N 
ЕХТІ 

135 Р-20:Р2-31 

140 FORI=122TO@STEP-1:X=RNDC4) 

150 IF X=20RX=3THENJ=3 

160 IFX=10RX=4THENJ=2 

161 COLORJ:IFX=3THENSET(I,60) 

163 ЗЕТСГ, 612 :NEXTI 

120 М=@ 

180 КЕ0:2-0:КҮ-0:62-0:К2-0:41Ез15 

198 Вмай 
° 194 COLOR4:XN=0 

195 GOSUBSƏQ0:FORI=1TO100:UX=USR(UX):COLO 
R,XN:XN-2XN*1 
..196 IFXN» 1THENXN-0 

:192 NEXTI :COLOR, @ 

202 A=CINP(43)AND31) 

201 CR=RND(10):IFH<14THENCR=RND( 20) 

202 IFH<6THENCR=RNDC28) : 

203 COLOR4:R=RND(126):SETCR,CR) 

204 ` IFCR? JRTHENJR=CR 

205, IF А=З1ТНЕМбОТОЗ@@ 

"210 IF ñ=26THENGOSUBS50:GOSUB600:GOSLB61 
.8:G0TO300 

220 IF. A*25THENGOSUBSS? : GOSUB600 : GOSUB63 
.0:GOTO300 

230 IF &-22THENGOSUBSS? :GOSUB610 :6050862 
'0:GOTO300 
:240. IF: A=21THENGOSUB55@ : GOSUB620 :GOSUB63 
:0:GO0TO300 
-250 IF A=3@THENGOSUBSS@ :GOSUB610 :GOT0300 
'260 IF &229THENGOSUBSS? :GOSUB630 :GOT0300 


P. F° tm p" 
ет вт 


ба ә = = Ян 


315 


S60 КЕЗЕТ(Р-4,Р2+1) :КЕЗЕТ(Р-5, р2+1): RESE 


270 IF A=27THENGOSUBSS@ :GOSLIB690 : G0T0300. 
280 IF A=23THENGOSUBSS@ : GOSUB620 
302 GOSUBSOO 

305 AZ=( INP(39)AND31) 

310 IF A=150RAZ=15THENGOSLBSBA 
IFN=1 THENGOSLIBS3@ :GOTO330 
320 N=RNDCH) : IFN=1 ТНЕМС=Р-3 :C2= ва: и 
@@ТНЕМКТ=1 Es 
330 IFK-1THENGOSUB250:G0TO340 


‘Decoy | 


; аге: “given: in ¿thè 
program: ` Ав: the: 
дате progresses; ' 
SO does tle de- 
gree of difficulty; 


340 IFz-1THENGOSUB809 :GOTO346 
345 IFK-1THENZ-RNDCH):IF 2- I THENL- -Е+2: 12. 
=EN+3 7. x: = Grant Rowe 
346 XG-RNDC2):1FGz-1THENGOSUB400:GOTO329 -` Ameliffe, NSW 
347_IFK=1ANDEN>P2-SANDEN <P2+2ANDXG= TREN ТАР ы 
Uz-E-3iUY-EN:GZ-1 
378 IFKZ-1THENGOTO380 Ny 
321 IFK=1THENKZ=RND(8H):IF К&= ITHENYZ= EHS 2 
:YY=EN-3 
372 6070200 
380 RESETCYZ, YY) :RESETCYZ «1, TY) :YY= "ТЕ 22 
IF YY <12THENK2=@ :6010288 
381 IFYZ>P-8ANDY2<P+1ANDTY>P2- ганот (P2 
2THEN1@8@ | 
382 COLOR4:SETCYZ, YY): SETCY2«1, YY): :G0TO2, 
aa 
402 RESETCUZ, UY) :RESETCUZ+1,UY) RESET CUE 
*2,UY) р 
418 Uz-Uz-3:[FUZ <] THENG2=@ :RETURN 
429 COLOR4:SETCUE, UY) :SETCUZ*1, VY) tSETCU 
2*2,UYJ i 
438 IF UY>P2-3ANDUY<P2+2ANDVZ> P- вариа. 
+1ТНЕМ\ 888 su 
449 RETURN у СЫЛЫ 
500 COLOR8:SET(P,P2):SET(P- 1,02); 'SETCP-2 
,P2) :SETCP-3, P2) 
505 SETCP-4,P2) :SET(P-5,P2): SETCP- в, P23 3 
ЅЕТСР-3,Р2+1) f 
510 SET(P-4,P2+1):SET(P-S,P2+1): seit: ag 
P2-12:SETCP-5,P2-1) 
515 SETCP-5, P2-2) :COLOR6:SETCP-3, P241 rR 
ETURN : 
550 RESETCP, P2) :RESETCP-1,P2): :RESET(P—2, 
P2) :RESETCP-3,P2) 
555 RESETCP-4,P2) :RESET(P-5,P2) : RÉSETCA 
6,P2) :RESETCP-3, P2*1) ; 


Т(Р-4%Р2-19 

565 RESETCP-5,P2-1):RESETCP-5, ee RESE» 
TCP-3,P2-1):RETURN : 
660 Р=Р-5 : [ЕР <18ТНЕМР=196 

6095 RETURN 

618 P2-P2-4:IFP2€XJRTHEN2000 

615 RETURN А 
620 P=P+S:IFP>1@6THENP=16 
625 RETURN 

63а P2-P2*4:I1FP2» SSTHMENPZ2-55 


УС yes $5 
l of 2. 


Р 105 + 94. 


635 RETURN Ë 

200 COLOR2:SETCE;END:SETCE*1, EN): SETCE*2 
»EN-1) :SETCE*3; EN-1) 

205 ЅЕТСЕ+4, ЕМ) :ЅЕТСЕ +5, END) :SETCE*2, ENFI 
J 

218 SETCE+3,EN+1) :RETURN 

220 RESETCE, END :RESETCE*1; END :КЕЅЕТСЕ+2, 
EN-1J):RESETCE*3,EN-1) | 

230 RESETCE*4,ENJ :RESETCE*S, EN) 

235 RESETCE*2, ЕМ+ 12 :RESETCE*3, EN*1) : КЕТИ 
RN 

250 605082720 

251 IFE>P-8ANDE-3> 1 THENE=E-3 :GOTO753 
252 IF E<PANDE+8<12@THENE=E+3 :6070253 
253 IF EN+S>P2ANDEN-4> 1 OTHENEN-EN-2 :GOTO 


260 
254 [Е EN+?<P2ANDEN+4 <6@THENEN=EN+2 :GOTO 
260 


262 605087080 : IFE>P-13ANDE <P+1ANDEN> P2-4A 
_ МОЕМ{Р2+2ТНЕМ1 808 
270 RETURN | 
800 RESETC(L,L2):RESET(L+1,L2):L2=L2+2: [Е 
L2>6@THENZ=@ :RETURN 
805 IF L>P-8ANDL <P+1ANDL2>P2-2ANDL2<P2+2 
THEN1000ELSECOLOR4 J 
810 SETCL,L2) :SETCL*1, L2) :RETURN 
900 FORI=P+2TOP+2@ :COLORRND(8) :SETCI,P2) 
:МЕХТІ :X62USRCX6) 
(910 IFK=1ANDE>P+1ANDE «P +21 ANDEN> P2-20NDE 
` NXP2*2THENSOUNDA, 1 :BN=1 
920 IF BN-1THENS-S*RNDC300) :К=0 : GOSUB220 
:H=H-1 : IFH42THENH-2 


“ о 
Deco, 


930 BN-9 
945 FORI-P:*2TOP420: RESETCI, 223: iN 

950 RETURN | 

998 ІЕКТ= ITHENRESETCC+2, en ‘RESE É 

991 

THEN1000 

992 RESETCC,C2): RESETCC; с2- T ic. v 
C2<P2-STHENN=G : RETURN ALES 

993 IFKY <> 1THENSS8ELSE COLOR3: :SETCC+7, ta 
JiSETCC+7,C2-1)° I 

994 IFC*2»P- BANOC+? «P* 1ANDC2) P2- заноса. 
2+2THEN1000 

998 COLOR3:SET(C,C2) :SETCC, с2- 13% RETURN 
1002 ҒОБІ-17010:М00Е(02: ‘COLOR; 1: 'SDUNDIS; 
1 :COLOR; Ø :SOLIND30, 1 

(019 MODEC1): 50518500: FORF= 17020: oen 
EXTI 

1920 CLS 

1025 n-M-1:1F M-OTHEN2990 `. de 

1030 PRINT@165, "CURRENT SCORE: "s 

1040 РКІМТ8229, "SHUTTLES. ШЕ “р 

1050 ҒОКІғ«1705200:МЕХТІ: 

1100 MODEC1):GOTOI3a. ` 

2002 CLS:PRINT9266, "GAME OVER! 

2010 FORI-1TO19280 :NEXTI:CUS 

2020 PRINT@165, "FINAL. SCORE 


“2025 IF S»HSTHENHS*S > 


2030 PRINT8229," HIGH. SCORE 
2040 FORI=1TOSaa@: NEATIS ы, 
2100 GOTOS 


> oi Mar 35 [^ 105+ loq 
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MOUSE MAZE 

D.CRANDALL 

From COMPUTER INPUT MARCH 1985. 

Help "mouse" by moving him around the 
maze so that he gets the cheese,seeing 
how quickly he can do it.All other 
instructions are in the game. 


1 CLS 
2 PRINTG@43, "HOUSE MAZE" 
З PRINT@96, "MOVE THE MOUSE (X) ARO 


UND THE " 120 REM READ POKES 
4 PRINT@128, "MAZE HOLDING DOWN ««C 130 READA 
TRL>> AND ” 135 IFA--99THEN490 
5 PRINT@160,"USING THE CURSOR KEYS 140 POKEQ+A, C 
SO THAT" 150 GOTO130 
6 PRINT@192, "HE САМ GET THE CHEESE 490 РОКЕР, 42 
(#). " 495 POKET,35 
7 REM'CHROMATIC SCALE’ 500 ІЕР-ТТНЕМВОО 
10 FORS=1TD31 503 IFZ$-2""THENS502 
15 SOUNDS, 1 505 Z=ASC (2%) 
20 NEXT 510 IFZ=9THENN=P+1:GOTO550 
21 PRINT@257,“HIT 'I' FOR THE INVI 515 IFZ=8THENN=P-1: 6010550 
SIBLE MAZE" 520 IFZ=27THENN=P-32: GOTOS50 
BLE MAZE” 530 ТМ=ТМ+1 
23 IFINKEYS="I“THENPOKE30744, 1 540 6010502 
24 IFINKEY$-"V*THENPOKE30744,0 550 Х-РЕЕК(М) S 
25 IFINKEY$-""THENGOTO23 555 f dL Mu 
27 PRINT@450, "HIT 'S'TO START" 550 Peer? S Еве 
ЗО ІҒІМКЕҮФ< >"S"THEN3O 205 Р-М 
40 SOUND28,1 570 сотазао 
85 @=28671 800 БЕМ 
86 QQ=28736 801 FORT=1TO31 
87 QR=28862 802 SOUNDT,1 
88 P-28736 804 NEXT 
89 ST=0 ооз CLS 
90 С=128 810 PRINTe224,"YOU GOT THE CHEESE 
95 T=28700+RND (480) Ына a 
100 CLS 820 PRINT:PRINT" WANT TO TRY AG 
105 FORX=1T032:POKE28671+X,C:POKE2 AIN? (Y/N)"; 
9151%Х,С:МЕХТ N 830 Z$=INKEY#: IFZ$=" "ТНЕМ8 ЗО 
110 FORY=1T032: POKEQQ+32*Y,C:NEXT s ық | TRENDUN 
115 FORY-1TO9:POKEGR432XY, С: NEXT 850 IFZ$-"N"THENEND 
147 ТО. 860 GOTO830 


1008 DATA33,37,41,48,54,67,71,73,75,76,77,78,890,82,83,84,86,88 
1005 DATA84, 96,128, 169 

1010 ПАТА90,91,92,93,94,99,100,101,102,103,105,108,112,116,122 
1020 ПАТА131, 135, 137,138, 149,142, 144,146, 148,149, 150, 152, 153, 154 
1938 DATA156,157,158,159,165,167,172,174,176,182,186 

1040 ПАТА195,196,197,199,200,201,202,203,204,206,208,209,210 
1050 DATA211,212,214,216,218,219,221,222,223 

1060 ПАТА227,229,235,238,246,248,250,259,260,261,262,263,264,265 
1978 ПАТА267, 269, 270, 272, 273,274, 275,277, 288,284, 285, 286, 287 
1989 DATA291,301,307,309,311,312,313,314,315,316,323,325,326,327 
1090 DATA328, 329, 339,331,332, 333, 335, 337, 341,346,350 

1100 DATA3S5, 357, 361,367,371, 373,374,376, 389, 382, 391 

1110 DATA395, 396,397, 398, 399, 400,401, 402,408, 499, 419,411,312 
1120 DATA419, 428, 421,422,423, 424,425,426, 427,431,436, 437,438 
1130 DATA439,448,444,445,446,461,465,474 

1140 DATA-99 4 COomPYTER INPUT MAR SS. 


VZ200 


PAINTER 


Painter is a challenging game 
where scoring is difficult. The 
program uses joysticks but can 
easily be modified to use the 
keyboard instead. 

The aim of the game is to paint 
as much of the screen as possible 
before you run out of space. You 
must avoid crossing your tracks, 
the border around the screen and 
the randomly placed red land- 
mines. 


Bruce Daniel 
Mudgee, NSW 


160 


10 ° PAINTER - BY BRUCE DANIEL 

28 HS=8 

38 CLS 

40 FORI-28704 TO 29119 : POKE 1,128: NEXTI ы 

50 FORI-1 TO 38:РОКЕ 28572%1,179 :РОКЕ 29120%1,188 :МЕХТІ 

80 FORI-28704 TO 29088 STEP 32:POKE I,181:POKE 1%21,186 :МЕХТІ 
70 POKE 28572,177:POKE 28703,178:POKE 29120,180:POKE 29151,184 
80 FORT=1T04+RND(4) SPOKE 28672*RND(12)*32*RND(28) +345 191 :МЕХТІ 
90 SC=0:MV=1 : СР=28704: COLOR2 

100 PRINT3495,'HIGH SCORE:";:HS$-STR$ (HS) 

110 HS$=RIGHT$(HS$,LEN(HS$)-1) 

120 IFLEN(HS$) <3THENHS$="@" *H5$: GOTO120ELSEPRINTHSS$ ; : SOUND23, 3 
130 PRINT3481,*SCORE :'3:5C$-5TR$(SC) :SC$-RIGHTS(SCS$,LEN(SC$)-1) 
140 IFLEN(SC$)<3THENSC$="@"+SC$:G0T01 48ELSEPRINTSC$; 

150 JK=INP(43)ANDINP(46)AND31 

160 IFJK-JOTHENMV--J2ELSEIFJK-29THENMV-32 
170 IFJK-27THENMV--1bELSEIFJK-23THENMV-1 
180 СР=СР+МУ 

198 ІРРЕЕК(СР)<>128ТНЕМ220 

200 РОКЕСР, 159:5С=5С+1:6070130 

2108” 

220 PRINT3257,'GAME OVER";' INVERSE 

238 SOUND16, 1 

240 IFSC>HSTHENHS=SC 

250 PRINT3417," PRESS <FIRE> ТО PLAY 
268 JK-INP(43)ANDINP (45) AND31 

270 IFJK«»15THEN260 

288 6070 30 


"s" INVERSE 


Б че Com p d ov, 
р ќо. 


Apr. $$. 


J эчу ck m СТУС t А 


JK = INP (43) AND INP (44) AND 3! 
ELSE IF К = 23, ту =32 
ELSE if JK = 23, МҮ = | 


IF у = МУ = -32 


IF TK -21 THEN МУ--і 


30 THEN 


CP = CP+ mv 


CP is position of moving objec, 
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ROADRACE 


By lan Thompson 


Imagine yourself at the wheel of a 
high speed racing car winding along 
a treacherous course. To stay on 
course, you must steer accurately or 
risk a collision with the side fences. 
By adjusting the road width and 
visibility conditions, Roadrace can be 
made аз easy or as challenging as you 
wish. 

The road width can be set between 
4 and 15 characters, the degree of dif- 
ficulty changing with different 


Main routines 


widths. Visibility can be set to any of 
four settings. When visibility is good, 
the car appears high on the screen. 
This allows a good view of the twist- 
ing road ahead. When visibility is 
poor, the car appears low on the 
screen allowing only a brief look at 
the coming road. 

After a five step starting light count 
down the race begins, the twisting 
and tuming road moving соп- 
tinuously on the screen. 


140- 250 Variable initialisation and graphics display. 


300- 
500- 
600- 
700- 
occurred. 

800-1050 
1400-1600 
2000-2200 
3000-3640 
4000-4090 


variables 


Road width. 
Visibility. 


420 Accepts road conditions from user. 

540 Initialises the road. 

650 Determines the next road condition. 

750 Updates the car position, determines if crash has 


Processes end of race. 
Draws next road segment. 
Initialises string variables. 
Initial graphics display. 
Graphics to start race. 


Distance driven on current day. 

Number of days of the race. 

Total distance driven for whole race. 
Elapsed time during race. 

String characters to move car left, right 
Position of left side of road. 

Random value to move road left, right 
Leftmost, rightmost allowable road position. 


User replies. 


Screen location of car. 

Strings to display road segments. 
First address of screen memory. 
Character string for car. 


The program occupies 2.8k of memory. 


Ар». iain 


The car is steered by the use of the 
left and right cursor control keys. 

The race proceeds until the car 
crashes offthe road. Each collision is 
considered to terminate one day of 
the race. After each day, you are 
shown the distance achieved that day 
along with the cumulative distance 
achieved for consecutive days of 
the race. 
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Modifications for TRS-80 


| The following line modifications will allow the program to run on the 
TRS-80 Color Computer. š 
160 CR=3: CC=3 
210 G=1024 
| 730 IF PEEK (Z+G) < >144 THEN 800 
740 IF PEEK (Z+G+1) < > 144 THEN 800 
910 PRINT@480,CHR$ (143) 
| 4000 Q=175:K=179 
The SOUND and COLOR statements must also be changed as 
appropriate for the TRS-80. 


С HR XX XXX CX RK MMH RR KK MK XE 

і ‘ж ROADRACE ж 
| 2 '**-X€€«xXNXXXXXXXYXXXxXXXXXXX 

Ze у 7-27 @ @ (8K) x 

д '* IAN THOMPSON -COLLAROY ж 

G RHEE EH HEHE ЗЕ ЗЕ Э-ЖЕ MM XE EM 
| 1@@ SOUND 28,6 

14@ CLEAR 200 


170 L$-CHR£ (77) : RE=CHRE (44) 
200 RC-1-LC 
| 210 6=28672 
250 GOSUR ®с@@ 
200 БОБОВ 2600 
510 т=@:М=@ 
| 515 CLS:PRINT 
320 INPUT"ENTER ROAD WIDTH (4-15) "sw 
520 W=INT (К): PRINT 
| 5447 IF Wz4 OR W>15 THEN 210 
550 PRINT"VISGIBILITY CONDITIONS" 


S60 PRINT” 1 - TERRIBLE" 
570 PRINT" 2 - BAD" 
280 FRINT" = - FAIR" 


590 PRINT" 4 - GOOD" 

395 PRINTG2B8Q,"" 

400 INFUT"ENTER VISIBILITY (1—4)";U 
410 V-INT(V::GDSUB 2000 

420 IF 951 OR V4 THEN 295 

500 N=N+i:61.=449:ER=478-W:H=0 
510 2-527-24жУ:і-4ез-ІМТ(Ыы/2: 
520 FOR 4-і TO 16:PRINTG482,R*: 
520 СОЗИН 1400:0%-1МКЕУ%Ж:МЕХТ 
540 PRINT@Z,C#;:GOSUE 4000 

600 H=H4 1: Q=RND (Ü 1 :PRINT@480 Et; 
610 IF DRC AND LER THEM 640 
620 IF Q«LC AND 1251. THEN 650 
630 GOSUB 1400:6010 700 

649 GOSUR 1600:67Тт0 700 

650 GOSUE 1500 

700 Өз-ІМЕЕУ% 

710 IF (Q£-Ltf THEN 7=7-1 

720 IF Q£&-Rf THEN 2-241 

720 IF PEER (Z #045144 THEN QU 


` ee 
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750 
aao 
810 
820 
830 
840 
900 
910 
920 
925 
930 
940 
950 
920 
970 
980 


PERSONAL COMPUTER GAMES 


IF PEEK (Z+G+1)<>144 THEN 800 
PRINT@Z,C#;:GOTO 600 

FOR J=] TO 6:Q¢=INKEY¢ 
PRINT@Z,D#;:SOUND 21,2 

FOR K=1 TO 10:МЕХТ 
PRINTG@Z, C$; 

FOR K-1 TO 10:NEXT: NEXT 
М-Н/50:Т-Т-М 
FRINTG430,CHR$(127) 
PRINT"YOU ШЕМТ" М; "KILOMETERS" 
PRINT"FOR А TOTAL ОЕ"; Т; "KILOMETERS" 
PRINT"IN"iN;"DAY(8)":PRINT 
PRINT"HIT «C» ~ CONTINUE RACE" 


PRINT" XR» ~ RESTART RACE" 
PRINT" «Q^» — QUIT" 
Q$£-INKEYt 


IF G£$-"C" THEN 500 


990 IF Qt="R" THEN 1210 

1000 IF Qf«»"Q" THEN 970 

1010 PRINT 

1020 PRINT"AVERAGE KILOMETERS PER DAY " 

1030 РВІМТ "Маб"; T/N; "KM." «— Сое у= о To Soo: N£xT CU 
1040 IF Q$="R" THEN 210 

1050 ENN 

1408 COLOR2:PRINIGL.,RG£f:: COLORS: RE TURN 

1500 COLOR2:L-L-1:PRINTSL ,RL.£; : COLORS: RETURN 

1600 COLORZ:PRINTGI ,RR£; :L.=I-+1: COLORS: RETURN 

2000 0-1214CC*16:k-2J184CC&*16 

2010 С$=СНР$ (0) +СНЕ$ (K) 

2020 @=127+СР»*16:К5+=СНАЗ (0) 5080 FEAD Q:FRINT@Q+2,C$#; 

2030 FOR J-1 TO W 2090 G#=CHR# (128) +MIDF(TS,I,1) 
2040 RS*¢=RS#+CHR¢ (128) : NEXT 3100 FOR К=1 ТО 100:МЕХТ 

2050 К5+=Р5$+СНЕ$ (0) 5110 РКІМТЕО+=, ОФ; :МЕХТ 

2040 O=119+CRx146:K=123+CR¥1E 3120 READ Э:РЕ{МТ@О+$,С%; 

2070 RLE=CHR$ (Q) +СНЕ% (Е) 3130 SOUND 26,4 

2080 FOR J-1 TO (0-1) 3140 FOR 1-1 ТО 500:МЕХТ 

2090 RL$-RLt-CHR£$(C(12B) :NEXT 5150 RETURN ` 

2100 RL£-RL£-CHR£ (2) KCHR$ (К) 3200 бата 12,44,77,110,141,172 
2110 G-116*CR*ló:K-122-CR*16 3210 DATA 205,278,271, 304,727 
2120 RR£-CHRf£(QO)*CHR& (K) 5220 DATA 270,402,470,459 

2120 FOR 1-1 10 tW-1) 2600 Af=INFEYS: IF INVEYS23"" "HEN 2600 
2140 RR$=RR++CHR$ (1 28) : NEXT 3610 PRINT@448,"HIT ANY KEY TO BEGIN" 
2150 RR#=RRS+CHRE (0) +CHRE (К) 2620 сС-ЕМП(0):0%4-ІМКЕҮ 

2160 Hes"":FOR 4-1 TO 32 2620 IF ОФ="" THEM 3620 

2170 Et-B$4CHR (C128): NEXT 5640 RETURN 

2180 DE=CHRE C128) ACHRE (120) 4000 0=175:К=179 | 
2200 FETURN 4010 NtaCHR (GQ +СНЕЯ (Q)+CHRE (Q): 
5000 W=7:SCSUN 2002:CLS 4220 ME=CHRE IR) CHRT С) +С НЕЕ CQ) 
2010 FOR 1-1 TO 18:READ Q 4078 (=7-[INT(W/2)—-5SsE=Q-128 
3415 COLORS 4040 FOR J=k IQ 0 SIEP 72 

5020 PRINTGQ,RSf;:NEXT 4045 COLOR4 

2050 FOR J-1 10 600: МЕХТ 405€ PRINT@J, NF; : NEXT 

2055 COLOR? 4868 FOR Jek TO G STEP 32 

20408 RESTORE: FOR 2-1 TO 6 4070 FOR R=; 10 700: МЕХТ 

2050 READ G:FRINTED 7, СЖ; 4090 FRINTeJ.M*::G80LND 28,4 
305Q FOR K-1 TO 10Q:MIXT:NEX! 40920 NEXT: COLOR2 

5070 T£-"ROADRACE":FOR 1-1 10 Q 4100 RETURN 
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NUMBER 
SEQUENCE 


This program prints various se- 
quences of numbers, each ending 
with a blank. You must enter the 
next number in the sequence — 
the computer indicates if your 
entry was correct.. 
A series of ten questions is 
asked, then your score is given. 
Because the program is written 
in standard Microsoft BASIC, it 
should be easily transported to 
other computers. The random 
number statements in lines 120- 
140 may need modification, 
according to your particular ver- 
sion of BASIC. А 
lan Thompson 
Collaroy Plateau NSW 


errr errr ree eee ЗЕ ЭЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ee NUN 
+ NUMBER SEQUENCE * 
'* FOR THE UNEXFANDED 92-200 + 
'* IAN THOMPSON - COLL AROY * 
* эз зе зе э Зе ЗЕ ЭЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЭЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ ЭЕ ЗЕ ЗЕ ЗЕ ЭЕ ЭЕ 


CLS: РАТМТ@! 04, "NUMBER SEQUENCE" * 
PRINT@325, "IAN THOMPSON, COLL AROY" 
PRINT@485, "PRESS ANY KEY TO START" 

IF INKEYS="" THEN 20 

IF INKEY$z"" THEN 20 

CLS: PRINT" NUMBER SEQUENCE" : PRINT 
PRINT"THIS FROGRAM WILL PRINT VARIOUS" 
PRINT"SEQUENCES OF NUMBERS, EACH = 
PRINT"ENDING WITH A BLANK (----)." 
PRINT"WHEN YOU SEE A '?', ТҮРЕ IN THE" 
PRINT"NUMBER THAT YOU THINK THE " 
PRINT"COMPUTER MIGHT HAVE FRINTED IN " 
PRINT"PLACE OF THE BLANK." 
PRINT 
PR INT " 4t 4t 4t 4 4 4 4€ Зе 3€ 3E JE ЗЕ 3E ЗЕ 3E IE ЗЕ ЗЕ ЗЕ ЗЕ ЗЕ М IEEE ЗЕ ERE ME EUR IU 
ГЕЛ В=@ 
LET Ww=0@ 

FOR I=1 TO 10 

PRINT"PROBLEM"; I 

LET A*2INT(t1O*RND(Q) +1) 

LET BzINT(1O«*RND(QO) +1) 

LET G=RND(3) 


150 IF A>B THEN 285 
160 IF G=1 THEN 170 
162 IF G=2 THEN 210 
164 IF G=3 THEN 250 


170 LET X=2#A+3«B 


180 PRINT 4:",":B;","; A-Bi",":A*2«B", ----"; 
190 INPUT Y 

222 GOTO 410. 

210 LET X-A*Q«B«B«B 

220 PRINT 4;","iB;","iA«Bi",":B«ARB;", ----": 
220 INPUT Y 

240 GOTO 410 

250 LET X--B 

260 PRINT 4;",";B; ","; B-55 ",";-A5", ----'"5 


< 270 INPUT Y 


280 GOTO 410 

285 IF G=i THEN 500 

290 IF Gz2 THEN 540 

500 LET X=A#5 

210 PRINT Ау "ужа; "у жА;","%4жАр", ----“. 
520 INPUT Y 

338 GOTO 410. 


540 (ЕТ X»s16*4 


560 INPUT Y 

410 IF X=Y THEN 450 

420. PRINT"NO; THE COMPUTER S SEQUENCE HAS “3Xs"." 
420 LET W=W+1 

442 GOTO 470 


; —3 
350 PRINT 05",";2*054","54«05",",B&A;", ----"; > 
—— 


450 PRINT"THAT'S RIGHT!“ 


77 | 
460 LET R=R+1 f 


470 PRINT: 


485 SOUND 15,5 


490 PR ІМТ n ———————— cd 


500 PRINT"SCORE: "Rg" RIGHT,";Ws" WRONG 


SOS PRINT: PRINT" w = = = = uz uz uz uz uzun uz um cesses S za == sz xz ma ma =a za n sor s= " 


510 PRINT" PRESS «SPACE» FOR ANOTHER SET OF"; 


480 NEXT-I + A 7 C 
/ 
м. 


520 PRINT" QUESTIONS." ы 
550 A$=INKEY$sIF AS <> " "THEN 530 
555 RUN 


Ус May sç 
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SKETCHPAD 


This program allows you to use the com- 
puter as a sketchpad. Two versions of the 
sketchpad are available, the: first being 
low resolution graphics using the charac- 
' ters above the Т, L D and J keys. The 
' second version makes use of high resolu- 
tion graphics to allow drawings of much 
finer detail 

In both programs you control the crea 
` tion of the picture using the arrow 


keys. 


Low resolution 
graphics 
Duringthe running ofthe program, use is 
made of the eight colour keys along the 
top of the keyboard to change colourdur- 
ing drawing, As well as the colour keys 
1-8, the following keys are also available 

. for use while drawing, 

upper J graphics 

upper D graphics 


“ЖЕКЕ 


upper Т graphics 
л I graphics 

— light green background 
© — orange background 
G and B — dark green background 
О and B — red background | 
Z — rubout background 
C — clear screen 
R — re-run the program 
P — copy to printer [СР-100] 
H — move to high resolution 


High resolution 
graphics 


In this mode you have a choice of two 
background colours, green and buff. 

These colours, and the foreground 
colours for drawing are selected from the 
eight colour keys along the top of the 
keyboard. 

The following 
colours available. 


summarises the 


S ‘ж 92-200 SKETCHPAD * 
110 '* 16K EXPANSION REQUIRED ж 
15 '"x4«X4xXx433XX33 X XC ЗЕ ЗЕ УЕ ЭЕ ЭЕ ЗЕ ЗЕ EXEC 
20 ‘х IAN A. THOMPSON + 
25 “+ COLLAROY FLATEAU - NSW ж 
50 'AX3 3 X X X X X X£ X 3 XX X43 XX 3 3€ C ЖЕ 
ee n 

35 SOUND 25,6 "а 


ЖУ-Х) E 9% 


Ву lan Thompson 


GREEN BACKGROUND 


1-- rubout ` 
72 — yellow . 
`3 — blue 
«4 — red 
BUFF BACKGROUND 
5 — rubout 
6 — cyan 
7 — magenta 
8 — orange 
The following xs are also used to 
control the program. 


C — clear the screen 
R — re-run the program 
P — copy to printer [GP-100] 
L — move to low resolution graphics 
Due to limitations of the printer, the 
Print statements in lines 815, 900, 1000, 
1085 and 1115 should be entered in 
inverse text. 
The program occupies 62k of 
memory. , 


GOTO в00”ТІТІ-Е GRAPHICS % INSTRUCTIONS 
120 GOSUE 2009 'INITIALISES CURSOR CONTROL. 
130 PRINT@(S2 
155 PRINT@(32#Y+X) СНЕЖ (1425): (URFFER CASE J 


CARROUW! 


KEYS 


њу 


May [Тил $5 
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IFC$="R"THEN 
IFC$="D"THEN 
IFC#="T" THEN 
TFC#="I" THEN 
IFC$-"Z"THEN 


IFC$2"1"THEN. 


IFC$="2"THEN 
IFC$="3 "THEN 
IFC$="4"THEN 
IFC£-"5"THEN 
IFC£-"6"THEN 
IFC$="7"THEN 
IFC$-"B"THEN 
IFC$-"G"THEN 
IFC£-"O"THEN 


IFC£f-"B"THEN 


. IFC$-"H" THEN 


, IFC£-'"C"THEN 


IFC£-"P"THEN 
GOTO 102 
GOSUB 2020 


RUN 
400 
500 
200 
300 
COLOR1: GOTOQ1@0 
COLOR2: 65070100 
COLOR: GOTO10@ 


COLOR4: 65070100 


COLORS: GOTO100 
COLOR6: GOTO100 
COIL.OR7s GOTO100 
COLORE: GOTO10!0 


РОКЕЗ 744,0: СООР ,0: GOTO100 
POKE30744,0:COLOR,1:GO10108 
POKE30744,1:GOTO100 


1000 
960 
СОРУ: GOTO100 


PRINTG(ZZ*Y-X)," "5 


PRINT@(S2#Y+X) ,CHRT 513 


IFC£-"R"THEN 
IFC£-"D"THEN 
IFC#="T" THEN 
IFC#="J" THEN 
TFC$#$=" Z" THEN 
IFC#="1" THEN 


2 IFC#="2"THEN 


IFCS="3"THEN 
IFC#="4"THEN 
IFC#="5" THEN 
IFC#="6" THEN 
IFC#="7" THEN 
IFC#="8" THEN 
IFC#="G6" THEN 
IFC#="0" THEN 
IFC#="B"THEN 
IF C#="H" THEN 
IFCS="C" THEN 
IFC#="P" THEN 
GOTO 200 
СОЗУЕ 2024 


RUN 
400 
500 
100 
zou 
COLOR? стан Ка Ры 
со!.Ок2:6Отп2@4 
COLORS: 6010208 
COL.OR4: GOTO200 


COLORS: GOTO2U0C 


COLOR6: GOTO200 
COL OR7: GOTO200 
COLLOR8: GOTO200 


РОЕЕ 50744,0: COLOR, à: G010200 
РОКЕ20744 , ð: COLOR., 
РОКЕЗ0744,1: зптто2@@. 


1000 
920 
COPY: GOT3200 


S): "UPPER CASE I 


а 
E 


1:6070200 


FRINTG(32*Y^X)," 4; Р ; 
FRINT@ š Bayt) CHR 120); ӨРРЕК CASE 2 
IFCS="R" THEN КИМ г } 
IFC$-"C"THEN 960 

IFC#="9"THEN &@@ 

IFC#="J"THEN 100 

IFC$="D"THEN 400 

IFC#="T"THEN 500 

ТЕСФ="І"ТНЕМ 200 

IFC$-"G"THEN POFEE 0744.0: COLOR ,@: GCTA2a0 
TFC#="0" THEM PORE X244. qn СП ав,1:5агахай 
TFC£-"B"THEM РОКЕЗ0744,1:60Т0200 
IFC$-"P"THEM COPY: GOTOSa0 

GOTO 300 . 

GOSUR 20nüa 


PRINT@(Z2*Y+X) , " 
PRINT@(Z2*Y+X) ., CHRÉ (13 


IFC#="R" THEN 
IFC$=" I "THEN 
IFC$="T" THEN 
IFC#="J" THEN 
IFC$="Z" THEN 
IFC$="1" THEN 
IFC#="2" THEN 
IFC£2"3"THEN 
IFC£-"A4"THEN 
IFC$-2"S"THEN 
IFC£-"5"THEN 
IFC$="7"THEN 
IFC$="8" THEN 
IFC#= 
IFC#="0" THEN 
IFC#="B" THEN 
IFC#="H" THEN 


IFC#="C"THEN. 


IFC#="P" THEN 
GOTO 400 
GOSUR 2000 


PRINT@ (Z2#Y+X) , " 
FRINTGe(Z2xY-X), 


IFC$-"R"THEN 
IFC$-"I"THEN 
IFC#="D" THEN 
. IFC$z"J'"THEN 
IFí2$2"Z"THEN 
ITFC#="21" THEN 
IFC#="2" THEN 
TFC#="F" THEN 
TIFC#="4"THEN 
IFC#="5" THEN 
IFC$-"6" THEN 
IFC$-"7"THEN 
IFC#="8" THEN 
IFC? ="6" THEN 
IFG#="0" THEN 
IFC£-z"H'"THEN 
IFC#="H" THEN 
IFC#="C" THEN 
IFC#="P" THEN 
GOTO 520 


"G" THEN 


A 
: ‘UPPER CASE D 

RUN : 

200 

500 

100 

300 оса 

COLOR1:6GOTO4090 `. 

COLOR2: GO10400 

COLORS: 6070400 

COLOR4: GOTO4@0  : : 

COLORS: 60Т0480 

COLOR6: 50704200 

COLOR7: GOTO468 

COLORS: GOTO402 

POKES8744.,0: COLOR, @: GOTO400 

РОКЕ:0744, 2: COLOR, 12 6070700 `` 

РОКЕ 20744,1: 6070400 - “U: 

1000 - 

960 

СОРУ: 6070400 


“.. 
Ы 


ШЕРЕНК CASE T 


CHR$1140);^ 
RUN - 
200 

400 

190 

500 
COLORi1:GGTOSOQO : 
COLORZ: GOTOSU00 
COLOR3:GGTO05280 
COLOR 4: GOTOSOQU 
COLORS: GOTGSEaG 
COLORS: GOTOEAA 


DOLOR: GOTOS00 


COLORS: 5070500 

РОКЕ 20744,09: COLOR , 0: coros 222 
PORE 207-44 . 02 COLOR , 1: бСТЗЗей 
POKESO744, 128070590 | 


1000 ::: 


ова 


СОРҮ:БОТОБ@й 2. 


REM#***MODE 1 SKETCHER. 


CLE 

MODE (1) ` 

xza 

Ү=0 
С+=ТМЕЕУХ 
IFCf-","ANMDX- 


1 


LO7THENY = Xf 


IFCEz"M'"ANDX UTHENXeX-1. 


ТЕСЕ 
ЕСЖ" 
ЅЕТ (Хү) 


"ANDY >@ТНЕМУ=:У-- i D 
"ANDY< 62 THENVEY+ 1 = 


ТЕГ =" "THEN COLORI sO: G0TOESa : 
ТЕС а" THEN: COL GF 2: GOTOé5A 
CFC#H"2" THEN COLORS: БОЛ СЫЗ > 


е ы = 6 
PERSONAL COMPUTER GAME 
me у Jun 85 

(3 


3of 5. 


918 
919 


IFC$-"A"THEN COLQR4: GOTO65@ 
IFC#="5"THEN COLORS, 1:GNTO65@ 
IFC$="6"THEN COLORé: 6070650 . 
IFC$-"7"THEN COLOR7: 5070650 
IFC$="8"THEN COLORS: 6070650 
IFC#="L"THEN 50Т0900 

TEGS="R"THEN RUN | 

IFC#="C"THEN 600 ` t 

IFC$z"F"THEN COFY:BOTOA50. 

GOTO 650 

CLS: РОКЕ=0744, 1: CBLORS, 2 

PRINT: PRINT 

FRINT" SKET Pie рар“ 
FORN=1T0100@ PUE os № 

NEXTN i£ Vp m ? 
At="IAN THOMPSON, соц аку PLATEAU" 
FORN=1TOL:EN(A#) ^" 7” ` 

PRINT@289, RIGHTS (AS, Мәз 

МЕХТ 

PRINT@45@, "COPYRIGHT <C> FEBRUARY 1985" 
FORN= 1701500 

МЕХТМ 

CLS:PRINT"THIS PROGRAM ALLOWS YOU TO USE " 
FRINT"THE COMPUTER AS A SKETCHFAD. " 
PRINT ux 

PRINT"TWO VERSIONS OF THE SKETCHFAD " 
PRINT"ARE AVAILABLE, THE FIRST BEING " 
PRINT"LOW RESOLUTION GRAPHICS USING " 
PRINT"THE CHARACTERS ABOVE THE T,I,D AND J KEYS." 
PRINT d ; 
PRINT"THE. SECOND VERSION MAKES USE СЕ" 
FRINT"HIGH RESOLUTION GRAPHICS TO " 


PRINT"ALLOW DRAW eS ОЕ MUCH FINER DETATL. TO BE MADE.":PRINT 


GOSUB2500 
CLS:PRINT"IN BOTH PROGRAMS, YOU CONTROL  " 


.PRINT"THE  CREATION OF THE PICTURE." 


PRINT"USING THE ‘ARROW KEYS IN THE" 
PRINT"LOWER EST HAND CORNER OF THE " 
PRINT"KEYBOARD. 

PRINTG227,"INPUT CHOICE" 

РКІМТЕ291,"А - LOW RESOLUTION" 
FRINT@Z55,°R - HIGH RESOLUTION" >> 
FRINTG241,""; : 
FRINTG241,""s: INFUTA£ 

IFAS="A"THEN Бота 900 

IFA£-"B"THEN GOTO 1082 


GOTO87a 
CL5:PRINT". LOW RESOLUTION GRAPHICS " 
FRINT:PRINTI"DURING THE RUNNING OF THF  " 


PRINT"PROGRAM USE TS MADE OF, THE EIGHTCOLOUE KEYS ALONG”; 
PRINT" THE TOP OF THE ЕКЕЕҮБОАЕП ТО’; 

PRINT" CHANGE. COLOURE€DURING DRAWING." 

FRINT:FPRINT"AS WELL AS THE COLOUR KEYS 1-8," 

PRINT"TME FOLLOWING KEYS ARE ы ALSO" š 
FRINT"AVAILABLE FOR USE DURING THE DRAWING. " 
BOSUR2S500 

CLS:PRINT:PRINT"IT IS SUGGESTED THAT YOU MAKE” 

PRINT"A NOTE ON A-FIECE OF PAPER OF". 
PRINT" THE FOLLOWING KEYS ТО BE USED DURING DRAWING." 
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B 


920 GNSUR2502 А à can 

921 CLS:PRINT@132,"J ~ "sCHR#(143)3" GRAPHTCS" 

922 FRINT@196."D — "sCHR$(132):" GRAPHICS" 

924 PRINT@260,"T ~ ";CHRE(140)3;" GRAPHICS" 

925 PRINT@224, "І 7OU"PCHR$CUSIMp GRAPHICS" U 

925 GOSUB 2500 : 

927 CLS:PRINTG132;"6 ~- GREEN BACKGROUND" 

928 PRINT@144,"0 — ORANGE BACKGROUND" | 

929 PRINT@196,"G+R DARK GREEN BACKGROUND" - 

920 PRINT@226,"0+B RED BACKGROUND" i. 

951 PRINT@240."Z - RUBOUT "BACKGROUND" 

932 PRINTe292, "Á — CLEAR THE SCREEN''" 

55 PRINTe324,"P — COPY TO PRINTER [Gr'- 1001" 

934 PRINTG:SA,"R — RE-RUN THE FROGRAM". 

936 PRINTeZ88,"H - MOVE TO HIGH RESOLUTION" 

950 IF INKEY$=" "THEN 950 

:956 IF ІМКЕҮФ=""ТНЕМ 950 

950 Y-0 

965 Х-0 

970 Cl.G:GOTO100 

1000 CLS:FRINT" HIGH RESOLUTION GRAPHICS " 

1010 FRINT:PRINMT"IN THIS MODE YOU HAVE A CHOICE" 

1020 PRINT"OF ТЫС BACKGROUND COLOURS, GREENAND BUFF. ":PRINT 

1050 PRINT"THESE COLOURS, AND THE FOREGROUNDCOLOURS FOR DRAWING"; 

1840 PRINT",ARE SELECTEDFROM THE: EIGHT COLOUR KEYS ALONG". 

1050 PRINT"THE TOF ОҒ THE KEYBOARD. f 

10060 PRINT:FRINT"THE FOLLOWING SUMMAR ISES THE" 

1070 FRINT"COLOURS AVAILABLE." ` a3 

1075 6050082500 gf tas 

1085 CLS:PRINT:PRINT" GREEN BACKGROUND": PRINT 

1090 PRINT" — RUEOUT" 

1095 FRINT". - YELLOW" 

1100. РЕТМТ" 3 — BLUE" 

1105 PRINT" 4 - RED" 

1110 PRINT Ar 

1115 PRINT" BUFF BACKGROUND": PRINT 

1120 FRINT" 5 - RUBOQUT" Š 

1125 PRINT" 6 — CYAN" 

1130 PRINT" 7 - MAGENTA" 

1135 PRINT" 8 - ORANGE" 

1140 605482500 ; : tes 

1150 CLS:PRINT" THE FOLLOWING KEYS АВЕ ALSO USEDTO CONTROL THE") aoe 

114@ PRINT" PROGRAM. " es 

1165 PRINT@131,"C - CLEAR THE SCREEN" 

1170 PRINTG19Z,"P.— COPY TO PRINTER ГОР-1001" 

1175 PRINTG259,"R - RE-RUN THE PROGRAM" š 

1180 FRINT@Z22,"L - MOVE TO LOW RESOLUTION | . GRAPHICS" 

1185 PRINT@48O, "PRESS «SPACE» ТО START DRAWING"; ы 

1190 IF INKEY$<>" "THEN 1185 

1195 IF INKEY£-"' "THEN 1195 

1200 GOTO 600 ` 

2000 C£-INKEYf | 1 

2005. 1ЕС$=", "АМОХ< ЗОТНЕМХ=Х+1 

2010 ТЕС$="М"АМОХ >@THENX=X~1 ws + y 

2020 IFC$-"."ANDYOOTHENY-Y-1 ` 2510 IF INKEY$<¢>"C"THEN 2500 

2050 IFC$=" "“ANDY<1STHENY=Y+1 222520 IF INKEY$="C"THEN 2528 
: 2040 RETURN : 2530 IF INKEY$="C"THEN 2520 
2500 БЕТ T asp РЕБ «C». TQ CONTINUE"; 2540 RETURN 
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S au 


27200: ў 


| Morse TUTOR 
; | ME 


This program. runs on “the Stare 


“dard TRS80 MC10 with 4 Kbytes of ` 


memory, and should also be sui*- 
¿able for the TRS80 CoCo, It runs 


<] number of characters to be repro- 

duced (up to 200), the speed (up 

` to 15 words per minute) and to 

| ; have letters, numbers or both. А 

‘delay between letters and words 

may also be selected. , 

zs. The program starts by-sound- 

Ing the preset characters,.and оп 

«completion they are printed on 

the screen. There is provision to 

‚ re-tun without resetting the vari- 

` ables, and an auto-run facility 

һас prints the checklist on- 
„screen, pauses, then re-runs. 

12. When you call for 200 charac- 

5 | ters. the computer is using very 

‘close to 4 Kbytes. For this reason. 

- line numbers меге kept: low: to 


x crash“ programming : has: been 
г done. If you make an incorrect en- 


peor T шымды e Sot aoe асыла, 


“take up less memory and no 'anti-: 


; random Morse in groups. of five . 
:characters, You may select the 


try-during the menu setup, the ` 


` program тау indicate an error, in 
which case you S have to re-run 
the program, . 


nlf you're using a CoCo use athe ( 


word * pause’ instead of ‘delay’ in 
lines :12, 29:and 80; the CoCo 


“doesn't seem (0 like the, word . 


‘delay’, | 
Basil Heath, 
- Hamilton, Old 


ШІ 
ÉOPHRINT"AUTO-RUN" : PRINT"YESCDI)": 
PRINT"NO-(2)" 

^ CLEAR 500 

^ DATA 63,62.60,56,4H,232, 33,235.53 
9,57,6,17, 21, 9,2, 20,11.16,4,30,1 
bo 18 Gels 23 27, 10,83, 12, 24,1 
4.,2^5.,29,19 

6 INPUT RC 


7 DIM HSC ye) 


X FOR [+1 TO 36:READ J: LET. B$UIO 


1 


THRO) 
9% NEXT. ECUS 

10. INPUT’ SPEEDOWPM › IMAX 1507?" : SP. 
FED, 

11 LET. ЗГІСЕО»7.%5/5РЕЕП 

12 INPHT”DELAY(CO- 192", DELAY: DEL 
AY- DELAY $ 90 

15: INPUT"NO: -CHARACTERSOMAX. 200» 
"ім | 

1%» INUUT“LICUTERS(1 INUMBERS C2008 
BOTH Se SL 

15 DIM THON) 

16 CLS: PRINT TARCS>"MORSE ТИТОВ 
PROGRAM": FOR ізі TQ N 

17 LEC TRI’) CHR$IRND 102-18 
Трева tatlo 299»10»-і1х CL 122: NE 
52 А 

1H FOR !*1 ТОМ 

19 LET. XsASCCBSCASCUTSCD) 00) 

20 GOSUB 65 

ШІК PENT OL / 5985 CHEN 29 

2% Tb dos THEN эй 

27 NEXT 1 

49 BOR Zed TO INTCOO0O0£xSPEED* (DEL, 
AY 550 Y:NEXT Z 

"n GOTO 2% 

эш FOR [el TO N 


u^ ТЕ ASCOTS CL) -10 THEN Зо 


ZC Tun 85 p T° 


аўт PRINT CHR$(ASCCTSCY) 154734 


38 СОТО 40, es eh Sa фен 


^ 


39 PRINT CHR$CASCCTSCID) 540; 
40 IÉ l1«INTCL/25)2 25 THEN 46 


Ін LeINTOL/ 5955 THEN 44 


АЗ IF 1:8 THEN 49 


49 NEXT 1 


44 PRINT" "; 


“45 Goro 42 


246 PRINT 


47 GUTO 42 
59 IF Roo THEN 90 

S0 PRINT: PRINT: PRINT 

51 PRINT"PRESS KEYC1)¢ENTERITO К 
E-TRY": PRINT "PRESS KEY(2)¢ENTER 


» ТО EXIT“ 


2 52 INPUT P:IF P:2 THEN lb ` 


53 DATA В0,82,79,71.82,65,77,92, 
66,89, 58,45,32,66,46,72.69,65,84 
0103,93, 86, 75.52, 65766, 72 


4 CLS: PRINT: PRINT 


.57 FOR 1*1 TO 27 


59 READ A 

61 PRINT CHR$(A); 

6% NEXT l| END 

6" LET Y:X/Z:LET X«INTCtY») 
687 Q-COxSPEEBx€C1* CY- Kk) x0) 
та SOUND 200,0 i 

75 IF X51 THEN aD 


77 FOR Z-1 TO INTCAOzSPEED) : NEXT 


78 GOTO 65 

HO FON Z} To INTCI2O0xSPEED-* (DEL 
AVa dv USNEXT Z’ 

AS RETURN 

ЗО PRINT: PRINT: PRINT"PRESS- ' BREA 
K'-TO EXIT" 

9% FOR 131 TO 10000: NEXT IL:GOTO 


16 


( Program б. mCio- Lah} fu. N2 scis 7@ Tan Y P He, 


MORSE TUTOR КЕМ MORSE TUTOR PROGRRM:CLS | 
PRINT" AUTORUN" :PRINT"YESC 1 >" :РЕ1НТ"НОС2 >" 
CLEAR 500 
(агат) DATA 63.62,60.56,48,32,33,35,39,47,6,17.21,9,2,20,11,16,4,30 
DATA 13,18,7,5,15,22,27,10,8,3,12,24,14,25,29,19 ~ 


In the June "85 issue of Your Com- INPUTR: DIMBS¢ 362 
puter діл published a Morse Tutor FORI=1TD36:RERD.J:LETBS$( I )=CHR%$C _ > 


А | NEXTI:CLS 

program written by Basil Heath INPUT" SPEEDCWPM ХМЯХ 1027"; SPEED 

for the TRS-80 MCIO. It was. LET SPEED25.0.'SPEED 

wrongly listed as being intended THOT DELAK n 15 2 i DELAY: OE ny RELA hee 

for the VZ200. As a result, Basil 2 INPUT^NO:-CHRRRCTERSCMRX 200>";N — — 

received- several letters ma ТИРЕ LE TTERSCI NUMBERS 2328 BOTHC25*";L 

phone calls from VZ200 users CLS:PRINTTRBES2"MORSE TUTOR PROGRAM" :FORI@1TON 

who pointed out first that the LETTS? I )xCHR$¿< ЕМО“ 10%~1%CL<>1 )+26%-1%(1<>2>)+10%-1Ж( =] >> 
print had been reduced so much NEXTI + FORI=1TON 

it was difficult to read, and LETARASC( ВФ ASCE TSC I)))) 


GOS! 
second that the program didn't ra a RENDUM VA 


work (for obvious reasons). IFI=NTHEN32 
Basil has very kindly collabo- NEXTI 
rated with a friend who owns a FOR 2=1 TO INTC200*SPEED+CDELPY*5)):NEXTZ 
VZ200 іп rewriting his program for E TES 
that machine. Here we've listed IF RSCCTSCIO?210 THEN39 
both versions (with the right РКІМТСНК%< Н5С< TSC 122%479; 
machine headings, this time). GOTO40 


i ^ PRINTCHR$CRSCCTSCI22*54»5; 
our apologies 19 the many peo IF ISINTC 1/25 )ж25ТНЕМ4Е 
ple ме mislead Бу this mistake. IF I«INTCIZSOESTHEN44 

IF 1=НТНЕНЗ9 

NEXTI 

PRINT" "5 

GOTO42 

PRINT 

GOTO42 

IF R<>2THENSO: PRINT: PRINT: PRINT 
PRINT"PRESS КЕТҮ 1 ХЕНТЕК> TO RE-TRY" 
РКІМТ"РКЕ55 КЕҮС2 ХЕМТЕК> TO EXIT" 
INPUTP: IFP«2THEN16 

DATA 86.82,79,71,82,65,77,32,66,83.58,45,32,66,46.72,69,65 
DATA 84,72.32.86,75,52,65,66,72 
CLS:PRINT:PRINT 

FORIx1TO2? 

RERDR 

PRINT CHR$CR»; 

NEXTI:END 

LETYxX/2:LETXZINTCY) 

Q=( 2KSPEED* 1+0 Y-X X42) 

SOUND25,G 

IFXz1THEN80 

FORZ21 TOINTC 49Ж5РЕЕО 2: НЕХТ2 

607065” 

FOR2x1TOINTC120*SPEED*C DELRY£3)):HEXT2 
- RETURH 
PRIHT:PRINT:PRINT"PRESS-'BRERK'-TO EXIT". 
FORIx1TO10008:NEXTI:GOTO16 


Ус Dan 8€ pifo-is1 1 2 


TRS-80 MCIO : 


CLS 

PRINT” AUTO-RUN" : PRINT"YES( 1)": PRINT"NO-(2)” 

CLEAR 500 

DATA 6$3,62,6U,56,4B, 32,33,35,39,47,6,17.21,9,2, 20,11.16,4,30,13,18,7,5,15,22,2 
7,10.8,3.12,24,14.25,29,19 

G INPUT R 

7 DIM B$(36) 


[EL 


8 FOR 1-1 TO 36:READ J:LET BS(1)=CHRS(J) 
9, NEXT TOOLS 


10 
11 
r2 
13 
14 
15 
16 
17 
18 
19 
20 
23 
25 
27 
29 
30 
32 


63 


INPUT"SPEED( WPM) (МАХ 152?";5РЕЕр 

LET SPEED-7.5/SPEED 

INPUT"DELAY:O 15)?" ; DELAY: DELAY -DELAY x50 
INPUT"NO: -CHARACTERS(MAX 200»";N 
INPUT"LETTERSt 1»NUMBERSt2?OR BOTH(2)?";L 
DIM TS(N) 

CLS:PRINT TAB(C5)"MORSE TUTOR PROGRAM":FOR 1-1 ТОМ 
LET ТФ) + СНЕФ (ЕМО 10х- 1 ж (141) 426x-1x (Lc 022) * 10x- 1x (L2 12) : NEXT. I 
FOR 1-1 ТОМ 

LET X=ASC(BS(ASC(TS(1)))) 

GOSUB 65 

IF 1=-INT(1/51=5 THEN 29 

IF I=N THEN 32 

NEXT I 

FOR Z*1 TO INT(200*SPEED+ (DELAY*5)):NEXT Z 
GOTO 25 

FOR 1:1 ТОМ 

IF А5ССТ%841.2:10 THEN: 39 

PRINT CHRS(ASC(TS(1))+47); 

GOTO 40 

PRINT CHR$(ASC(Ə(T$(I))+54); 

IF I: INT(1/25»?*25 THEN 46 

IF 1-1МТ(1/539«5 THEN 44 

IF I*N THEN 49 

NEXT I 

PRINT” SŠ 

GOTO 42 

PRINT 

GUTO 42 

ТЕ В. +2 THEN 90 

PRINT: PRINT: PRIN1 

PRINT"PRESS KEY(1)(ENTER)TO RE-TRY":PRINT "PRESS KEY(2)(ENTER)TO EXIT” 
INFUT P: IF P 2 THEN 16 

DATA 80.82.79,71,82,65.77,32,66,89.58,45, 32,66.46,72,69,65,84,72,32, 86,75, 52, 
66,72 

CLS: PRINT: PRINT 

FOR 1-1 TO 27 

READ A 

PRINT СНЕ$‹А›; 

NEXT 1 :END 

LET Y-X/2:LET X INTY? 

О- ‹ 2» SPEED^ C1 - CY -X) 40) 

SOUND =00,Q 

IF X-1 THEN 80 

FOR 2:1 TO INT(A4O0xSPEED) : МЕХТ Z 

GOTO 65 

FOR 2-1 TO INT/(120x3PEED:* t DELAY 33?)  : NEXT Z 
RETURN 

PRINT:PRINT:P'RINT"PRESS-'BREAK'- TO EXIT" 
FOR 1-1 TO 10000:NEXT I:GOTO 16 


Ус Tan М р. 159-152 2 ol 2, 


ELECTRIC 
TUNNEL 


The object of the game is to travel 
along the tunnel, avoiding the 
electrically charged walls. 

The program uses joysticks for 
control, but by modifying lines 
170 and 180 the program could 
use the keyboard: 

170 KYS=INKEYS 
180 IF KYS=”M” THEN Z=Z-] 
ELSE IF KYS="," THEN=Z 2+1 

The PEEK in line 190 checks to 
see if the position in front of you 
is clear. Scoring is based on the 
distance you travel along the 
tunnel. 


Bruce Daniel, 
Mudgee, NSW 


87 ELECTRIC TUNNEL 
1 ° WRITTEN BY — BRUCE DANIEL 

2 , 

18 (LS : COLOR 2,8. 

20 P$ = CHRS(143) 

38 FOR 1-1 TO 18 : PS=PS+CHRS(176) 

48 NEXT I:P$=P$+CHRS(143) 

58 IF INKEYSO'* THEN X=RND(@) :G0TO 58 

188 PP-15-INT(LEN(P$)/2) 

118 2-16 

138 PRINT TAB(PP);P$ :POKE 2857241, 99 

148 IF RND(2)=1 THEN PP=PP+RND(3)-2 

158 IF РР<3 THENPP-3ELSE IFPP)(32-LEN(P$)-3) THENPP-32-LEN(P$)-3 
188 IF CN<16 THEN 298 

178 (Ке INP(43) AND INP(45) AND 31 

188 IF JK=27 THEN 11-18 5Е IF JK=23 THEN Z=Z+1 

198 L-PEEK(2878442):1F LO144 AND LO 176 AND 152128 THEN 488 
290 CN=CN#1 SIF QU3BO INT(CN/38). THEN 138 

388 Q=-LEN(P$) 

318 IF @‹=5 THEN 138 

328 PS=LEFTS (PS, 1) MIDS P$, 2, Q-3) RIGHTS (PS, 1) 

зза вето 138 

498 PRINT:POKE 28572%1,45 

418 COLOR, 1:50UND31 , 1:S0UND31 , 1 :SOUND23, 1:50UND23, 1 

420 SOUND13, 1:500ND13, 1:50UNDA, 5 

425 ' 

448 SOUND 8,2 

458 COLOR,B 


468 FORI=1T05 

878 FORTD-1T025:NEXTTD 

889 PRINT@@,’-+# CRASH CRASH CRASH CRASH ++ "$ 
498 FORTD=1T025:NEXTID . 

588 PRINTƏ0, ° 

518 FORTD=17025:NEXTTD, 1 

528 PRINT3128, "СОКЕ: "$° INVERSE "SCORE" 

538 SC=INT(CN®1.2-DN) 5 PRINTSC; 

548 PRINT3488,' PRESS «RETURN? TO TRY AGAIN"; 
558 IF INKEYSOCHRS(13) THEN 558 

560 RUN 


NUMBER SLIDE 


Number slide is a computer ver- 
sion ofthe puzzles that used to be 
given away with breakfast cereal. 
This version has been adapted 
from a 2Х81 program printed in 
this magazine a few years ago. 
The idea is to rearrange the 


numbers іп correct.order after the 

computer has mixed them up. 

The program should work on 

other computers without much 
modification. 

Bruce Daniel 

Mudgee NSW 


18 DIMA(9):8S5$-CHR$ (B) *CHR$(B)*CHR$ (127) +СНЯ$ (127) 


12 7$=" 
15 (5 
28 FORX-1TO9 
38 LETA(X)=0 


48 МЕХТХ 

58 1ЕТА(5)=-32 

68 FORX=1T09 

78 IFX=STHENGOTO138 

88 LETP-RND(8) 

98 F0RY=1T09 

108 IFA(Y)-PTHENGOTOBO 
118 NEXTY 

128 LETA(X)=P 

138 NEXTX 

148 PRINT3224,7$;7$;:PRINTaQ ; 
298 FORX=1T03 

218 FORY=1T03 

228 PRINTCHR$(A(Y+(X-1)+3)+64);' *j 
248 МЕХТҮ 

258 IFX=1THENPRINT® — 123* 
268 IFX-2THENPRINT' — 456* 
278 IFX-JTHENPRINT* 789° 
280 PRINT 

290 NEXTX 

390 PRINT 

318 PRINT3256, "MOVE FROM: 


TC Ауа. gS р. Л4. 


328 INPUTF 
348 IFF)9THENGOTO318 

358 PRINT 

258 PRINT2328,'MOVE TO: — "iBS$; 
378 INPUTT 


380 PRINT: IF (F=3ANDT=4) 0R(F24ANDT=3) ORT=@THENS18 
398 IFT>9OR(F=6ANDT=7) OR(F=7ANDT=6) THENGOTO368 


480 IFNOTA(T)=-32THENGOT036@ 

418 IFABS(F-T)=10RABS(F-T)=3THENGOT043 
820 5010318 ` 

438 (ЕТА(Т)-А(Ғ) 

449 LETA(F)2-32 

458 CLS 

478 FORI7-1TO7 

488 IFA(17)>A(17+1) TRENGOTO280 

498 NEXTI7 

500 PRINT'CONGRATULATIONS, ° 

518 PRINTTAB(S)*YOU HAVE SOLVED THE PUZZLE." 
528 PRINT 

538 INPUT'TRY AGAIN (Y/N) ';X$ 

548 IFX$O *N' THENRUN 

558 CLS:END 


Ву Maurice McMullan 


This program was written for the VZ-200 
computer and requires a 16k expansion 
module. The program is a variation 
of one written by J. Schultz which 
was published in Australian Personal 
Computer 1982. 

It allows the player to manipulate the 
Rubiks Cube by using various com- 
mands. The commands consist of a series 


СІ: 


of instructions which rotate the sides of 
the cube in a clockwise direction through 
a number oí right angles. 

Special instructions permit: 
1. Set up a random cube (to test the 
players ability to solve the cube). 
2. Store a cube on cassette. 
3. Restore a cube from cassette. 
4. To go back to the previous cube if 


current instructions do not produce the 
desired effect. 
5.Ifallelse fails the program will arrive at 
a "solved" cube (by cheating of course). 
A simple error detection routine deter- 
mines if a side designator is incorrect and 
if so the command containing it is 
ignored. 


6 PRINTQG291,"WRITTEN BY M.MC.MULLAN": FORA=1TO3000: NEXT 


7 CLS:PRINTQG229,"INS'IPi.Cl TONS? CYORN)"; 


8 F$-INKEYS:K$-INKEYS$: IFK$=""THEN8 


9 IFKS$-"Y"THENGOTO2000 


10 CLS:COLOR,1:CLEAR 420 


20 сес" вес Со) "Б" ССВ CHCA) SLs CSCS) ="D" TORCE JE ng 


30 CD¢(1)=2:CD(2)+6:CD(3)=18:CD(4)=12:CD(5)=4:CD(6)=21 
PERSONAL COMPUTER GAMES 


V 2(3): Od. $£ 
в 477 54. 
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40 DIM1(9,6) 
50 REM SET UP FOR PERFECT CUBE 

55 FORA-1TO9:FORB-1TO6:1(A,B) -B: NEXT: NEXT 

60 GOSUBA400:GOTO720 

100 REM SUBROUTINE TO TURN FACE 

110 ITEMP=I(8,N):JTEMP=1(7,N) | 

120 ЕОВІМС-6ТО18ТЕР-1:1(ІМС-2,М)-ІСІМС,МУ:МЕХТ 
130 I(2,N)=ITEMP:I(1,N)=JTEMP:RETURN 

200 REM SUBROUTINE TO CHANGE АМ EDGE 

210 FORREP-1TOGO:RESTORE ^ 

230 I COM: ITHENFORDUM- 1TO(COM- 1) «24 : READSKIP: NEXT DUM 
240 FORI2NC-1TO3 

250 READPO,FA:ITEMP-I(PO,FA) 

260 FORINC-1TO3 

270 ВЕАрР2,Е2:1 (РО, ҒА) =1(Р2,Е2) 

280 PO-P2:FA-F2:NEXT INC:I(P2,F2)-ITEMP:NEXT I2NC 
320 N-COM:GOSUB100:NEXT REP:RETURN | 

400 REM SUBROUTINE FOR PRINTING CUBE 

410 RESTORE 


420 RESTORE: FORDUM-21TO144:READSKIP: NEXT 
420 -FFORY=OTO64STEP32: FORX=29098T029100: READPO, FA 


470 POKEX-*Y,CD(I(PO,FA?)2:NEXT: NEXT 

485 FORA=OTO256STEP128: FORY=OTO64STEP32 

495 FORX-29034TOZ29036: READPO,FA 

5505 POKEX-Y-A,CD¢CI(PO,FA)) : NEXT: NEXT: NEXT 

515 FORA=OTO8STEP8: FORY-OTO6A4STEP32: FORX-28966TO28968 

530 READPO, FA: POKEX+A+Y,CD¢I(PO,FA) ): NEXT: NEXT: NEXT: RETURN 
600 REMSET UP INSTRUCTION TO GO BACK TO PREVIOUS SET UP 
605 X$-" /' :Us0 


610 U=U+2:AS=MID$(Y$,U-1,2) 
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787 X$-X$-"/":GOTO727 


Е%Ф-І.ЕЕТ%Ф(А%,1):0р%-МІр%(А%,2,1) 


J=4-(ASC(D$)-48) 

G$=CHR$(J+48) 

H$=E$+G$ 

Х%-Н%-Х% 
IFU+1=LEN(Y$)THENRETURNELSE610, ` 
PRINT@O, " 

X$-"":PRINTGO,"ENTER COMMANDS "; : INPUTX$ 
LL=0 

LLsEL«i:IFMID$4OX$,LL, 1)€5"/"THENT28 


LL=LL-1 


740 AA-AA*2:2$-MID$(X$,AA-1,2) 

745 REM Q = END GAME О 

750 IFLEFT$(ZS,1)-"Q"THENCLS: COLOR, О: END 
755 REM Y - PERFECT CUBE 

760 IFLEFT$(Z$,1)="Y"THEN5O 

765 REM I - RETURN TO LAST ATTEMPT 


770 IFLEFTS$(Z$,125-"I"THENGOSUB600:GOTO727 
777 REM Х- RANDOM CUBE 


778, IELEFTS(Z$, 1)="K"THEN784 

779 REM T = STORE CURRENT CUBE ON TAPE 
780 IFLEFT$(Z$,1)="T"THEN960 

781 REM P - RESTORE CUBE FROM TAPE 

782 IFLEFT$ (Z$, 1) ="P"THEN990 

783 Y$-X$:GOTO820:REM SAVE CURRRENT CUBE 
784 REM SET UP RANDOM CUBE 


785 X$-"FZ2":FORJ-1TO9 


786 F=RND(5)+1:X$=X$+CSCINT(F) )+CHRSCINTCRND(2)+49) >: NEXT 
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REM DETERMINE МНІСН:51рЕ AND HOW FAR ТО ROTATE 


G=0:A=0 


A=A+1: IFMID$(Z$,1,1)=C$(A)THENG=1 


I FG=OANDA< 6THEN830 


IFG=1THENCOM=A: GOTO870 


JP=0:PRINT@O, "ERROR ІМ ";:GOSUB2500: IFJP=1THEN720 


GOTO727 


Z$=MID$(Z$, 2,1) 


IFASC(Z$) >=49ANDASC(Z$)< =51THENGO=ASC(Z$) - A8: GOTO910 


ТРАЗС (2$) =48THENS30ELSEZ$=CHR$( ASC (2$) -2) : GOTO890 


GOSUB200 


GOSUB400 


IFAA< LLTHEN740 


GOTO720 


REM STORE CUBE ON TAPE: 


CLS: PRINT@166, "START TAPE TO RECORD"; 


PRINT@200, "PRESENT SOLUTION"; 


PRINT@259,"PRESS ANY KEY TO CONTINUE" 
965 Е$=1МКЕУФ$ : 2$ =1МКЕУ$ : IFD$=""THEN965 


А$="":РОВА= 1ТО9 : FORB=1T06: A$=A$+CHR$(1(A,B)+48) : NEXT: NEXT 


PRINT#"TEMSOL" , AS 


Z$-2"Q":GOTO750 


REM RESTORE CUBE FROM TAPE 


CLS:PRINTG166,"START ТАРЕ TO INPUT"; 


PRINT@200, "STORED SOLUTION"; 


PRINT@259, "PRESS ANY KEY TO CONTINUE" 


Ғ$= INKEY$: Р$ =1 МКЕУ$ : IFD$=""THEN994 


INPUT#"TEMSOL”, АФ 


L=1:FORA=1TO9: FORB=1T06:1(A,B)=ASC(MID$(A$,L,1))-48:L=L+1 


997 NEXT: NEXT 
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998 CLS:GOSUB400:GOTO720 
1000 REMDATA FOR MOVES 

1010 DATA3,4,5,6,7,3,5,5,4,4,6,6,8,3,6,5,5,4,7,6,1,3,7,5 
1020 DATAYT,4,;1,5;25,95,116,8,4,2,5,4.9,2.,6.1.4,3,5,5,3,3,06 
1030. DATA?7,;2.93,;5,3,1,.,7;6,8,2,4,5,4,1,8,;6,1,25,5;5,5,1,1,0 
l040 DATA7;1,7,9,59,2,5;0,8,.1,8,5,2,2,.4.0,1,;1,.1,5,5,2, 5.6 
1050: ВАТА Торо 
1060 ТАТАВ 3.5.1.526 634; 672 7,947.1:752 27,8 
1100 REM DATA FOR PRINTING 

1110 ВАТА S 2 5.3 5.815. 9.5. 4.5. 75 6 55 5 5 

120 DATAS;S.2,2,119.45,9.,9.2,8.0.5,970: 21 7. 2 

1130 DATA3,6,2,6,1,6,4,6,9,6,8,6,5,6,6,6,7,6 

1140 DATAZ; бои 


1150 DATA5;2,6,1,7/2 4945954185459) ата 


1160 DATA5;3,6,3,7,9,4,9,9,9,8,9,3,5,2,3; 1,3 


2000 REM INSTRUCTIONS 


2005 CLS:PRINT"xxxxxxxx INSTRUCTIONS xxxxxxxxx":PRINT 
2010 PRINT"THIS PROGRAM ALLOWS ONE TO PLAY" 


2020 PRINT"WITH THE RUBIC CUBE" 

2030 PRINT"SIDES ARE LETTERED:-" 

2040 PRINT" B BACK" 

2050 PRINT" jg FRONT" 

2060 PRINT" UPPER" 

2070 PRINT" LEFT" 

2080 PRINT" R RIGHT" 

2090 PRINT" D DOWN" 

2100 PRINT:PRINT"xxxPRESS «C: TO CONTINUE xxx":PRINT 
2110 FS=INKEY$: D$=INKEY$: IFDS< >"C"THEN2110 
2120 CLS:PRINT" INSTRUCTIONS ARE ENTERED AS :- 


2130 PRINT" 1.ROTATION OF SIDES." 
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2140 PRINT"SIDES ARE ROTATED IN A CLOCKWISE" 
2150 PRINT"DIRECTION THROUGH A NUMBER OF RIGHT" 
2160 PRINT"ANGLES.THE SENSE OF THE ROTATION" 
2170 PRINT"OF A FACE IS TAKEN WHEN ONE " 

2180 PRINT"LOOKS DIRECTLY AT THAT FACE" 

2184 PRINT:PRINT"xxxx' PRESS «C» TO CONTINUE xxx":PRINT 
2185 F$-INKEYS$:D$-INKEYS$: IFD$«»"C"THEN2185 

2190 CLS:PRINT" AN EXAMPLE OF AN INSTRUCTION IS" 
2200 PRINT" R2L3U1B3/":PRINT 

2205 PRINT" MUST END COMMANDS WITH A /":PRINT 
2210 PRINT"THIS MEANS ROTATE: -" 

2215 PRINT" RIGHT FACE THROUGH 180DEG" 

2220 PRINT" LEFT FACE THROUGH 270DEG" 

2225 PRINT" UPPER FACE THROUGH 90DEG" 

2230 PRINT" BACK FACE THROUGH 270DEG" 


2250 PRINT:PRINT"xxxx PRESS <C> TO CONTINUE xxxx":PRINT 
2260 F$-INKEYS$:D$-INKEYS$: IFD$«»"C"THEN2260 

2270 CLS:PRINT" 2. SPECIAL INSTRUCTIONS" 

2280 PRINT" QUIT GAME" 

2290 PRINT" SET UP PERFECT CUBE" 

2300 PRINT" RETURN TO LAST ATTEMPT" 

2310 PRINT" SET UP RANDOM CUBE" 

2320 PRINT" STORE CUBE ON TAPE" 

2330 PRINT” RESTORE CUBE FROM TAPE" 

2333 PRINT:PRINT"xxxxPRESS <C> TO CONTINUExxxx": PRINT 
2334 F$-INKEYS$:DS$-INKEYS$: IFDS< >"C"THEN2334 


чхе < о 


2340 GOTO10 
2500 REM ERROR ROUTINE 
2510 FORJ=1TOLLSTEP2 


2520 IFMID$((X$,J,2)-Z$THEN2540 
2530 NEXTJ:PRINT@O, "МО ERROR FOUND?" :JP=1:RETURN 


2540 IFJ=1THENJP=1:RETURN 
2545 Ү%Ф-МІр%(Х%,1,20-10-"/" 


2550 GOSUB60U: RETURN 
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YAHTZEE i m 
This is a VZ200 version for the 
dice game Yahtzee, designed for 
an unlimited number of players. 
Each player throws his or her 
dice up to three times each tum. 
After the first and second throws 
you can hold any dice you wish to 
keep, re-throwing the balance. Af- 
ter the third throw you must enter 
your score in the table provided. 
Once a score has been re- 
corded for a particular category, 
that category can’t be used again. 
The game ends after 13 rounds. 
Because of the limitations of 
the printer used to produce the 
listing it’s wise to include the 
graphics [shift Js] in lines 2020 
and 2050. The sections under- 
lined should be inserted in in- 
verse text. 
The program occupies 5.9 
Kbytes of memory. 


lan Thompson, 
Collaroy Plateau, NSW 


Main Variable Used 


NS( ) Player's name 

SIS( ) Titles ot category 

525() Description ot category 

5С%() Update score for each category 
DF( ) Spots on dice 

SC( ) Score 

ND( ) Random number for dice 

NP Number of players 

IP User update of scoresheet 


Turn number 


Title grapnies 
100 Initiafises screen background 
Clears memory for variables 


130 Input players’ names 

140 Initialises variables 

160-170 Input players names 

165 Limits players name to 11 characters 

180-190 Set number of player turns per number of 
players 

210 Random number generator for dice throw 

290-320 Print score table 

330-420 User update of score 

470-570 Updates total score 

600-650 Displays final score and placings 

1000-1120 Data statements for score table 

1130-1160 Data statements for spots on dice 

2020-2050 Displays dice 

9000-20040 User update of score subroutine 


21000-22140 Instructions Е 


Your Comput ty Oek $5 
р 10S -107 


! of 5, 


* 3 4€ 3 3E 3E 3E 3E JE 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E EE 3E 3E 3E E 3€ 
“+ V2-200 YAHTZEE ж 
'* IAN THOMPSON - COLLAROY ж 
* 3 3E 3 3E 3 3E 3E 3€ 3E 3E 3E 3E 3E ЗЕ 9E ЗЕ 3€ 3€ 3E 9€ ЗЕ 9E 3€ 3E 3E 3E 3E 3€ 
CLS: SOUND 25,6:COLOR,O 
FOR Х=1 TO 32:POKE 28671%Х,204:РОКЕ 291514 
,195 
6 POKE 28672,174:POKE 28703,173:POKE 29152,1 
71:POKE 29183,167 
7 NEXT X 
8 FOR N-28704 TO 29120 STEP 52 
9 POKE N,202 
NEXT N 
FOR 0-228735 TO 29151 STEP 32 
POKE 0,197 
NEXT O 
PRINT@106," YAHTZEE " 
A$=" LAN А. THOMPSON " 
B$-"COLLAROY PLATEAU" 
FOR N=1 TO LEN(A$) 
PRINTe231,RIGHT$(A$,N) ; 
PRINT@263, RIGHTS (B$,N) : 
NEXT 
FOR І-і TO 500:МЕХТІ 
PRINTe454,"INSTRUCTIONS (Y/N)?" 
IF INKEY$«»"" THEN 38 
А$=1МКЕУ$ 
ТЕ A$="N" THEN SOUND30,1:GOTO100 
IF A$<>"Y" THEN 40 
SOUND30,1 
GOSUB 21000: ‘ INSTRUCTIONS 
100 POKE 30744,0:COLOR 5,0:CLEAR 1000 
120 R=RND (O) 
130 CLS:PRINT@128,"NO. OF PLAYERS":: INPUT NP 
135 SOUND 31,1 
140 DIM SC$(13,NP),81$(12) ,52%(15) ,N$ (NP) ‚ОЕ 
(6,6) ,SC(NP) , YF (NP) 
145 GOSUB 1000 
150 FOR I-1 TO NP 
160 CLS:PRINT@128,"PLAYER #"; I; : INPUT"'S NAM 
Е"; №$ (Г) 
162 SOUND 51,1 
165 IF LEN(N$(I))>11 THEN SOUND 20,1;10,1:60 
TO 160 
МЕХТ 
FOR TURN = 1 TO 15 
FOR PL=1 ТО МР 
FOR R=1 TO S:ND(R)=RND(6é):NEXT 
GOSUB 2000 
GOSUB 3000 
PRINT@416, “REMEMBER THESE, THEN” 
PRINT"HIT ANY KEY TO CONTINUE": AS=INKEYS 
AS-INKEYS:1F А$="" THEN 260 
FOR Ізі TO 6:М(1)-О:МЕХТ 
FOR Ісі TO S:N(NDCI))SN(NDCID) +1: NEXT 
CLS:PRINT"CHOOSE A CATEGORY, " ; № (PL) 
FOR 1=1 TO 13:PRINTUSING"##) "313 
PRINTS1$ (1);52$ (1) ; SC$(I,PL) 
NEXT 
PRINT: INPUT"WHICH [1-131l";IP 
IP<1 OR IP>13 THEN 290 
IP=12 THEN 12000 
SC$(IP,PL)«5"" THEN 15000 
IP<7 THEN SC$(IP,PL) =STRS(IP#N(IP)) 
IP=7 OR IP=8 THEN 7000 
IP=9 THEN 9000 
IP=10 THEN 10000 
IP-11 THEN 11000 
ІР-12 THEN 12000 


430 NEXT FL:NEXT TURN 
440 FOR FL=1 TO NF:FOR I=1 TO 13 
460 NEXT 
470 FOR I=1 TO 6 
480 SC(FL)-SC(FL)4VAL (5С$‹Г,РЬ)) : МЕХТ 
490 IF SC(FL) >62 THEN SC(PL)=SC (РЁ) +55 
500 FOR 1=7 ТО 12 
510 SC(FL)=SC(FL)+VAL (SC#(I,FL)) 
520 МЕХТ:МЕХТ 
550 FOR I=1 TO NF-1 
540 HI-O:FOR 2-1 TO NF 
550 IF SC(J) >НІ THEN HI-SZ(J):F-J 
560 NEXT 
570 0=5С (1) :5С (Г) =5С (Е) :5С.Е)=0 
560 О+=М (1): М (1) =NS Р): МЗ CE) =DE 
585 МЕХТ 
590 SOUND 20.1:SOUND 19,1:SGUND 20.1 
600 CLS:FRINT"AND THE FLACINGS AFE"; 
620 FRINT:FRINT:FOR I=1 TO NF 
620 FRINTUSING “##": I: 
640 FRINT"J "iNS(ID:TAE(GS):SC(ID 
650 NEXT 
660 PRINTe480,"ANOTHER GAME (Y/N)?": 
670 GOSUB 20000 
680 IF YN£-"Y" THEN FLIN 
690 CLZ:FPINTG162.' THANKS FOR THS Game 
":END 
160 “DATA STATEMENTS 
1040 FOR ізі ТО 1% 
1050 READ 51%(1),52%(1):МЕХТ 
1060 DATA"ACES",". [SUM OF 1:51 
. CSUM OF Z'S] -" 
1070 DATA"IHGEEZ",".LSUM OF 57532 
". CSUM OF 4:81 -" 
1080 DATA"FIVES",". CSUM OF 5'S1 
". [SUM OF 6'81 -" 
1090 DATA"Z OF А KIND",". [SUM] ,"4 OF А 
KIND",". [SUMI -" 
1100 DATA"FULL HOUSE",". 51 ,"SM. SIR 
AIGHI",". C30] =" 
1110 DATA"LGE. STRAIGHT",". £40] "YAHTZEE 
WM, [50] -" 
1120 DATA"CHANCE",". [SUMI -" 
1130 FOR I-1 TO 6:FOR J=1 TO I 
1140 READ DF (I,J):zNEXT: NEXT 
1150 DATA 56,22,99.1,66,121,32.35,97,99 
1160 DATA 1,5,66,129,151,1,5,65,67,129,151 
RETURN 
CLS:PRINT N$(FL)s"'S ROLL" 
FOR R=96 TO 224 STEF Z2:FOR S-2 TO 26 S 


COLOR 5 

PRINT@R+S," "s “THREE SHIFT 775 

NEXT: NEXT 

FOR D=1 TO S:FOR N=1 ТО ND (D) 

COLOR 3 

PRINT@914+D#6+DF (ND(D) .N) ," ": ONE SHIFT 


NEXT: NEXT 

RETURN 

FOR K-1 TO 2:F=1 

FOR J-1 TO 5 

P-252«*J*6:RR(J)-O 

PRINTeP,"^^^" 

PRINT:PRINT 

PRINT"REROLL THIS ONE CY/NIJ?" 

PRINT"CS FOR SCOREBOARDI":PRINT"CM FOR 
MISTAKE": YN#=INKEYS 
3960 ҮМ%-1МКЕҮ% ы 
5070 IF YN$i»"Y" AND ҮМ%<>"М" AND YN$Z»"S" A 


әсер Com ру} tv Ock 55 
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ND YN$<>"M" ТНЕМ3060 

5072 ТНЕМ SOUND 20,1 

5074 THEN SOUND 10,1 

3076 š THEN SOUND 15.1 

5078 : THEN SOUND 20,2;10,1 
5080 ТЕ ҮМ%<>"5“ THEN 2150 

5090 CLS:PRINT TAB(S);Nf#$(FL):" S SCORES" 
5100 FORI=1TO12Z:FPRINTUSING"##] 4:1; 

$105 PRINT S1£$(1),;S2£$(I):SC$(I,FPL) 


5110 МЕХТ:РКІМТ"НІТ ANY KEY TO RETURN: ": А$=1 
' МКЕУ$ 
3120 AS=INKEYS:2 IF А%-"" THEN 3120 ELSE GOSUB 


2000: GOTO 3020 

3120 РКІМТЕР," М 

5140 IF YN#="M" THEN 2010 
$150 IF YN#="Y" THEN RR(J)=1 
5160 МЕХТ 


$170 FOR 1=1 TO S:IF RR(I)=1 THEN ND(I)=RND( 


6):F=0 

3180 NEXT: IF F THEN K-2 

3190 GOSUB 2000 

3200 NEXT 

3210 RETURN 

7000 FOR 1=1 TO 6: IFN(I) >1Р-5 THEN 7030 
7010 NEXT 

7020 GOTO 16000 

7030 5С-О 

7040 FOR 1=1 TO 5:SC=SC+ND (І) : NEXT 
7050 SC#(IF,PL)=STR#(SC) 

7060 GOTO 430 

9000 FOR I=1 TO ó 

9010 IF N(I)>2 THEN N(I)=N(I)-3:GOTO 9040 
9020 NEXT 

9030 GOTO 16000 

9040 FOR I=1 TO 6 

9050 IF N(I)>1 THEN 9080 

9060 NEXT 

9070 GOTO 16000 

9080 SC$(9,PL)-" 25" 

9090 GOTO 430 

9090 GOTO 450 

10000 FOR I=1 TO 3:F=1:FOR J=I TO 1+5 
10010 IF М№(Ј) =0 THEN Ғ-О 

10020 NEXT 

10030 IF F THEN 10060 

10040 NEXT 

10050 GOTO 16000 

10060 SC$(10,FL)-" 30" 

10070 GOTO 430 

11000 FOR I=1 TO 2:F=1:FOR J=I TO I+4 
11010 IF N(J)-O THEN Ғ-о 

11020 NEXT 

11050 IF F THEN 11060 

11040 NEXT 

11050 GOTO 16000 

11060 SC$(11,PL)-2" 40" 

11070 GOTO 430 

12000 FOR I-1 TO 6 

12010 IF N(I)=S THEN 12040 

12020 NEXT 

12030 GOTO 16000 

12040 SC$(12,PL)2" 50" 


12050 IF YF(PL) THEN SC$(12,PL)-STR$ (VAL (SCF 


(12,PL) ) +100) 

12060 YF(PL)=1 

12070 GOTO 430 

15000 SC=0:FOR I=1 TO 5 
13010 SC=SC+ND (І) МЕХТ 
15020 SC#(13,PL)=STR#(SC) 
13030 GOTO 430 


SOUND 15,1:CLS 

PRINT@128,"YOU’VE ALREADY DONE" 
PRINT"THE "/S1$(IP);" "jN$(PL) 

FOR I=1 TO 2000:МЕХТ 

GOTO 290 

SOUND 15,1:CLS 

PRINTé128,"YOU'RE NOT ELIGIBLE FOR" 
PRINT"A ";51$ (ІР); " ";М$ (РЁ) 

IF IPz12 AND YF(FL) THEN SOUND 0,8:60Т 


PRINT:FRINT:PRINT"DO YOU WANT IT ANYWA 


Y CY/N2?"; 


16040 
16050 
16060 
16070 
16080 
20000 
20010 
20020 
20030 
10,1 

20040 
21000 
21010 
YER" 

21020 


GOSUB 20000 

IF YN$-"N" THEN 290 

SC#(IP,PL)=" O" 

IF ІР-12 THEN YF (PL)=1 

GOTO 430 

YN$= INKE Y$ 

YN$=INKEY$:IF YN$="" THEN 20010 

IF YN$<>"Y" AND ҮМ%<>"М" ТНЕМ 20000 
IF YN$="Y" THEN SOUND 20,1 ELSE SOUND 


RETURN 
CLS: PRINT" INSTRUCTIONS" 
PRINT: PRINT"IN THIS DICE GAME EACH PLA 


PRINT"CAN THRUW ОР TO THREE TIMES EACH 


PRINT" TURN. AFTER THE FIRST THROW, HE" 
PRINT"CAN SET ASIDE ANY DICE HE WISHES 


PRINT"TO KEEF,AND RETHROW THE BALANCE. 


PRINT"HE CAN DO THE SAME AFTER THE" 
PRINT"SECOND AND THIRD THROWS. HE CAN, 


РКІМТ"ОҒ COURSE, STOP BEFORE THE THIRD 


PRINT"THROW IF HE WISHES." 

PRINT"ONCE THE PLAYER HAS DECIDED TO" 
PRINT"STOP, HE MUST DECIDE INTO WHICH" 
PRINT"CATEGORY TO ENTER HIS SCORE." 
GOSUB 22100 

DIM S1#(13) ,52%(153) 

FOR І-і TO 15 

READ 651%(1),52%(1):МЕХТ 

CLS 

PRINT 

FOR Ізі TO 13 

PRINT S1$(1):S82£ (I) : NEXT 
PRINT&ZOO,"LSUM OF HOUSE] -* 
PRINT8334,"L1,2,5,4,5,2 -" 
PRINT@366,"(2,2,4,5,6,] -" 
PRINT@394,"CFIVE OF A KIND] -" 
PRINT@427,"CANY FIVE DICE] -" 

GOSUB 22100 

CLS:PRINT“THE GAME ENDS AFTER 12 ROUND 


РКІМТ"ОМСЕ A SCORE HAS FEEN RECORDED" 
PRINT"FOR A PARTICULAR CATEGORY, THAT" 
PRINT"CATEGORY CAN T BE USED AGAIN." 
GOSUB 22100 

RETURN 

PRINTe485,"FRESS «C^ TO CONTINUE"; 

IF INKEY$<5"C™ THEN 22100 

IF INKEY$-"" THEN 22100 

IF INKEY$-"C" THEN 22130 

SOUND 30,1:RETURN 


J ous. Compubw Hel $: 


р #25- (0? 


ci aes 


19 CIS PRINT: PRINTTAR (19) ==. ЕГЕН 
29 PRINTTAR(Ì 


3% PRINT" CATCH THE RUGS FOR POINTS AND" 

-LO PRINT" PRINT 

59 PRINT" «РЕ 

69 PRINT" PRESS ANY KEY TO CONTINUE": IYORTS1TO19: IS=INKEY$; NEXT 
79 ІҒІНКЕҮ$="",70 

100 CLEAR400: DIMAS(2,5),B(2), B! (2),C(2) e (5% R$(7),RS(7) 

110 FORT=QTO?: 18(т)-87777977977779: Н5(Т)аг Q: NEXT 


ALLEY J": PRINT 


T1200: ВН: 6 5С-Ф: PoRnoTo2: Он Н :С(Т)=ВМО(12) +19: NEXT 
CLS: PRINT: INPOT"DIFFICULTY 1-5"; DF: IFDF «108рҒ)5,275 
DF2(10-(DFe2) )+20 

POKE30776 , 255 

товта266727020151 51:РОКЕТ,128:МЕХТ:С01089 


792 


te 
А. сосн 


PRINTe3A9,"RLAI : 
PRINTG380, $: COLORI 


5 PR ІН 
PRINT0L79, Kh; 
РОЕТ=291 527029183: POKET, 175: NEXT: COLORI 
PRINT@32, USING"# тю" ;S 
FORT«OTO5: PRIST@T®52+259, A$(0, T) ; : NEXT 
92 ҒОВТ«17019: ISa TAKET S: NEXT: IPSC) 50, Ь 
IFINKEYSaCHR$(13),809 
IFINKEY$a": дю 
IFINKEY$=" 
UN PRINTG9,USINO"R SAMY; TI; 


т)+С(7),128 
Злой e 


iu voci 

тв (Tm (MDC 2232: C1(T)&RND(3)-2 

ЕТ СОИ HORNN: (т 

pum POER(T) +C (T); 12@+RND(8)*® 16 Тут: PORE? 8671, 1: POKE28671,2 
сото 

82 B6 Pone qtos: iid Aa et eg mn МОТ 

810 тат g AE 2,Т) : NEIT 

820 Ex28967:Cx1:00SUB 

:836 FORT=QTO5: PRINTET. 320259, АЗ (1,7) ; NEXT 

846 6070395 
990 РОНТабТ05:Р81М207%52»259,А%8(1, ты 


ET 5-28999:С-1:005/В1900 

920 сотоз9 

950 5=29031 :C=1:GOSUBI 000 

960 0070395 

1000 $=5+1 :С=С+1 : ТРРЕБК ($ < 2128, 607011 09 

1005 РОКЕЗ,188:Т1=ТТ-1 :PRINTOO, USING WEBB" ;ТІ; 
1008 IFTI=<0, 2000 


1030 G 

1100 PORT-QTO2:IFS- zB(T)*C(T), SCeSC«! : TI=TI+DFELSE1120 

1110 B(T)=28672:C(T)=RNN(12)+1 0: SOUND3Q, 1331, 

1115 PRINT@32 US TIC HIHI"; SC; :RN-RN-. 025: inne, RNz2 

1120 NEXT: POKES , 1 28: G0TO! 020 

2000 POKES, 128: 11070 тес «1,2005Е15Е2000 
:4,6:6,218,520,1:9,49,1;6,Ь 


222», 
2080 PRINT@387," 
2092 PRINT@419, " 


2095 FORT=1T02000: NEXT 
2190 FONE 59776403 IFSC*1@>HS(7),2200 
2110 CLS:PRI 


2120 PRINPTABOM p 
2130 FORT=OTO? :PRINTST SE Н ES HE (T) + 
2140 PRINTO) 50+ 32, USING eet ; HS (т): NEXT 


2160 PRINT@418,"PRESS ANY KEY TO PLAY AGAIN" 
2170 FORTz1TO!0:IS-INKEY$: NEXT 
2180 IFINKEY$z"",2180 
2199 аоТ0279 
2200 CLS: PRINTTAB(1 114 ШЕН "SCORES" 
2210 FORT-ÓTOOS 
2220 IFSCe19)HS (Т), C HS(T+1)=ES(T): $$ (7+1 )=Н$(Т):РаТ 
2225 КЕХТ 
2230 PRINT:PRINT" PLEASE ENTER YOUR NAME ON THE" 
2246 PRINTTAB(12)"SCORE BOARD" 
2250 INPUTHS(F):H8(F)=LEFTS(H$(F),12):HS(F)#SC*1@:GOTO211@ 


VZ Frog 
by À Alley 


Frog begins with a brief instruction 
screen and asks for the difficulty level (1 
to 5). The program then draws a scene of 
the swamp with the full moon, several 
water plants and a large frog. Unfor- 


tunately, this frog is suffering from a per- 
manent energy crisis. You, as the player, 
must try to keep him alive by making him 
eat as many of the insects flying around 
as possible. This requires a good deal of 


energy, and so too many misses will 
result in the frog's untimely demise. The 
insects get smarter as the game pro- 
ceeds, and tend to duck out of the way 


just before the frog eats them. 


APC та, 96 70) 


P 20$- Rog. 


VZ 200/300 


Balloon Safari, Тһе Drop & Flatten 


These three programs have been written for the standard VZ200/300 computers, in BASIC. They each have instructions 
within them. In the third program, SHFT appears in some program lines. This means one should type those letters in 
Quotes in conjunction with the SHIFT key. 


Раш Sheppard, 
Christchurch, NZ 


5 CLS:GOSUB2000 :CLS 

з , 7 “BALLOON SAFARI” ` 

18 > * BY PAUL SHEPPARD ^ 

11? ` Uz-KIUISOFT. ^ 

13 CLK=26624 :В06-СНК6(95) 

14 2$2"TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT" 
*31 SHFT-"T^ 

15 д8=" 7YJJJES " "SHFT 

16 B$=" 1JJJJJJ " "SHFT 

12 C$-" ЫЈЈЈЈЕ " 'SHFT 

18 GYYF " > SHFT 

19 1YR " PSHFT 

20 ВР=44 

22 COLOR6:PRINTG480, 28 ; 

25 Gosusseoe 

48 R-RNOC3) 

50 IFR*1THENBP*BP-1 : IFBP <З2ТНЕМВР=8Р+2 
20 IFR*3THENBP*BP*1:1FBP?S2THENBP*8P-2 
ве GOSUB1000 

85 I$*INKEY$:1$* ]NKEYS$ 

S8 1Е18=" “ANOKE=@THENSOUNO31, | :КЕ=1 :0Е= 
BP+13@:AN=An+1 :GOSUBS@88 

188 IFKE=1 THENGOSUB2@@@: IFAM=2@ANOKE=@TH 
Еніггге 

110 ІҒ5НеӘТНЕМб0О5уВЗ000 

128 505084208 

138 507048 

1808 COLOR? :PRINT@BP, AS :PRINT@SP+32,B8 :P 
RINT@BP *64,C€ 

1010 РЕІМТӘВР +96, 08 :PRINT@BP+128,E8 :RETU 
RN 

2000 PRINT@OE,” ";:0Е“0Е%32 

2805 1Е0Е=>51ОТНЕМОЕ=8 :КЕ=В :SOUNO! , 3:PR1 
NT8480, 2$ ; [RETURN 

2818 PRINTGOE,BO£; 

2020 IFNOTCOE> *BLANODE €*BL «4 ) THENRETURN 
2030 EXS-"TEERYT " >5НҒТ 

2042 PRINT@OE,” ";:COLOR4:PRINTGBL,EXS ; : 
Exs="" 

2050 FORT1*1TOS:FORT*1TO20 :POKECLK, I :POK 
ECLK,@:NEXTT,TI 

2060 OF =8:KE=0:K 1=К1 +1 :605485088 :RETURN 
3080 BL=474:SH=] :SHS="YOQQUTY " > SHFT 
3010 RETURN 

4808 BL=BL-1:COLOR] :PRINT@BL, SHS ;’ FORP=0 
TOS :NEXT 

4010 IFBL<449,PRINT@BL, " “):5н-0 
4020 RETURN 

5800 PRINT&O, “GATORS ARROWEO"KI” ARROWS 
LEFT"28-ANn 

5818 IFAM>=21 THENENOELSERE TURN 

2008 PRINTTAB(S)"BRLLOON SAFARI” 

20818 РЕІМТТАВ(9)"-------------- ^ 

2028 PRINT 

2030 PRINT" THIS IS A SINGLE PLAYER GAN 
E" 

2048 PRINT"LHERE YOU, ALONG WITH OR BELL 
enr"; 

2058 PRINT"TRAUEL ACROSS THE AFRICAN PLA 
INS"; 

2060 PRINT"IN YOUR BALLOON HIGH IN THE $ 
KY. "5 

2028 PRINT" IN SEARCH OF KILLER ALLIGATO 
RS,"j 

2088 PRINT"(CALLEO ?*GATORS? BY THE LOCAL 
52” 

2030 PRINT"UITH ONLY 20 ARROWS, YOU ARE 
TO" 

2108 PRINT"RIO THE SWAMPS OF THESE FENES 
??":PRINT. 

7105 PRINT"TO DROP YOUR ARROW ON THE GAT 
OR PRESS THE SPACE КЕТ. 

2118 PRINT@482, " PRESS ANY KEY TO ВЕСІ 
н; 

2120 18=INKEYS:]F INKEYS=""GOTO7120 

2138 CLS:PRINT@160," BY THE WAY, THE WIN 
OS CAN MAKE” 

7140 PRINT"YOUR BALLOON GO IN ANY DIRECT 
ION" 

2158 РЕ1МТТАВ(72)”$0 AIM CAREFULLY £2" 
2168 PRINT@482," PRESS ANY KEY TO ВЕСІ 
N"; 

2120 Is=INKEY$:IFINKEY$=""GOTO2120 

7188 RETURN 

18928 FORT=1T0S@@ :NEXT :CLS :PRINT"YOUR 80 
MB SUPPLY IS EXHAUSTEO. 

10818 PRINT"YOUR SCORE IS"KI"HITTING"KI^ 
201100"z,7 

18048 PRINT@4B4, ;:INPUT"PRESS RETURN TO 
START" ;Os 

10958 RUN 


le? 7 "THE DROP” ` 

2@ ' x BY PAUL SHEPPARO 7 
38: « U8-KIWISOFT 2 

40 Т5-28622:85-29183 

50 SC=0:BL=20:BA=15:EB=0:ET=0 
бе 50518828 

28 50508502 

108 "MAIN LOOP 

118 50508220 

120 IFFL#=1 THENFL=@ :GOTOS@8 
138 60101080 

208 'rOUE BALL 

205 IFEB>=20,BL=BL+1:ET=ET+1:EB=SC-20#ET 
207 PRINT@0@4S,BL ; 

218 FORX=2T030 

220 РОКЕТЗ+Х-1+32%3, 32 

238 РОКЕТЗ+Х+»32&3, ВЯ 

240 й8= | МКЕТЗ : 9$ = [NKEYS 

252 IFñ*=" "6010300 

260 NEXTX 

228 РОКЕТЗ+Х-1+3243, 32 

288 5070200 

308 'OROP BALL 

310 FORY=TS+X+32t*4TOTS+X+32t14STEP32 
328 OP=PEEK(Y) 

338 IFOP)>48ñNOOP <5В5070400 
348 POKEY-32, 32 

358 РОКЕТ, ВЯ 

360 NEXTY 

328 POKEY-32,32:SO0UNDRNO(S),2 
380 BL*BL-1:]FBLX1THENFL = 1 :RETURN 
390 RETURN 

400 'CHECK NUMBER 

405 POKEY-32,32 

418 N*OP-48:SC*SC*N:EB*EB*N :FORT«1TO20 
420 РОКЕТ,ОР 

425 FORF*1TO21-T:NEXTF 

438 РОКЕТ, 32:РОКЕ26624, | :POKE26624, 0 
435 FORF*1TO21-T:NEXTF :NEXTT 
440 GOSUB200 

450 PRINT@S8,SC; 

460 RETURN 

508 'SET UP SCREEN 

51e CLS 

528 FORI*1TO30 

538 PRINT@O+ I, CHR$CI43); 

535 PRINT&64*1,CHR$C143); 

548 PRINT,4239*1,CHRSC143); 
558 NEXTI 

SSS PRINT8S10,CHRSC143); 

560 FORI=@T0478STEP32 

520 PRINT@I,CHR8(143); 

580 PRINT(I*31,CHR$(C143); 

592 NEXTI 

595 РОКЕ29183,239 

600 PRINT033,"BALLS LEFT ="; 
618 PRINT@S1,"SCORE =”; 

622 FORN=1TO9S 

630 50508760 

648 NEXTN 

652 RETURN 

200 'PLRCE NUMBER 

218 XeRNO(30)*] :YsRNO(S) +18 :РО=Т$+Х+ CT£3 


228 IFPEEKCPO) < 326070710 

230 POKEPO,N«48 

248 RETURN 

808 ' INSTRUCTIONS 

810 CLS:PRINT:POKE30886,31 

820 PRINT” THE DROP 

830 PRINT:PRINT:PRINT" OROP THE BALL ON 
THE NUMBERS 

835 PRINT:PRINT"EXTRA BRLL FOR EUERY 20 
POINTS 

848 PRINT:PRINT" PRESS SPACE TO DROP THE 
BALL 

858 PRINT:PRINT:PRINT" PRESS ANYKEY T 
0 START 

860 ñs=]NKEY$:ñ$=INKEY$:IFñs=""THEN8609 
878 RETURN 

390 'ENO 

925 IFSC>HS,HS=SC 

918 CLS:POKE30886,31 

920 PRINT@139,"GANE OVER 

930 PRINT@195, "SCORE ="SC" HIGH SCORE = 
“HS 

940 PRINT:PRINT* DO YOU WANT ANOTHER 
60 >“ 

950 A$=INKEYS:A$=INKEYS :IFA$=""THEN950 
960 IFAS="Y"THENIGELSEENO 


18 REN / “FLATTEN” “ 

20 КЕП * Вт Р.5НЕРРВЕО ^ 

38 REM * UZ-KIMISOFT ^ 

48 Т5ч28622:85-29183:Р5е-175%32%1:0К-30912 
жа5С("14) 

58 55-191 :GL=29151 :L «32 

ве 50508808 

188 ІҒРЕЕКС387$4 ) THENSP *32 :81е31Е1.5Е5Р-9 
6:81-95 

110 CLS:PRINT"OIFFICULTY LEVEL (1-6)" :50 
URO31, 1 :РОКЕЗӘ873,1 

128 OI*PEEK(30823):IFOI = І THEN] 2OELSEO*O] 
-48:1FO«10RD? 66070118 

138 ІҒО< 660701586 

148 PRINT"ARE YOU THAT GOOO (Y^/N)";:SOUN 
031,1 :РОКЕЗ0823. 1 

145 A=PEEK(30873):1FA=IGOTO]45ELSEIFA=89 
POKEUR, 2ELSEPOKEUR, 4 

15e CLS 

168 50508500 

200 REM MAIN LOOP 

218 650508302 

220 65010220 

308 REM MOVE PLANE 

385 POKE26624, | :РОКЕ26624,0 

318 Р5-Р5%1:1ҒР52В550Т060Ә 

328 P=PEEK(PS) 

338 IFP=SSGOTO6ee8 

340 AG=INKEYS :А8= | МКЕТЗ 

358 JFñs=" "ñNOFL=@THENFL=]:BO=PS:TU=@ 
369 IFFL=1GOSUB4ee 

320 РОКЕР5-2,5Р 

380 РОКЕР5-1,155:РОКЕР5, 159 

385 IFPS*1»GLGOTO200 

399 RETURN 

499 КЕП DROP ВОГВ 

405 ЅВ=РЕЕКСВО+32) 

418 РОКЕВО,ЅР :КЕП PATH 

439 BO=BO+32:1FBO>GL+32THENFL *Q:RETURN 
448 POKEBO,BM:REM BONG 

459 1Ғ58=78, РОКЕРЅ-1,ЅР :РОКЕРЅ-2,5Р:РЅ=Р 
S-CINTCCPS-TS)^L)1L) *L 

468 RETURN 

580 БЕП SET UP CITY 

585 PRINTS2,"OIFFICULTY LEUEL"O; : IFD*66N 
DA=B9THENPRINT" 2” 

510 FORI=1T038 

528 FORY=@TORNO( 2+*0)%32STEP32 

538 POKEGL+I-Y,SS 

550 NEXTY:1I*1*RND(C2-D)72) 

S6@ NEXTI 

578 FORI=1TO2S 

588 РОКЕСІ.»1,28 

598 1=1+кмО(б) 

595 NEXTI:RETURN 

68@ REM САМЕ ENO 

610 FORI*PS-1TOGLSTEP32 

628 РОКЕ!-1, 188 :РОКЕІ, 175 

625 FORT*ITO108:NEXTT 

638 РОКЕ1-1,5Р:РОКЕ|,5Р 

648 NEXTI 

658 ҒОКТ= 170506 :NEXT 

650 CLS:PRINT8202, "TOU CRASHED 

665 50(901,652,153,3:1,4:6,6 

628 501023 

790 REM LANDEO SAFELY 

218 CLS 

728 PRINT@192, “YOU LeNOEO SAFE, CONGRATU 
LATIONS 

738 PRINT@266, “ANOTHER GO? 

235 SOUND31,1 

248 AS=INKETS:AS=INKEYS: [98 =" "6070740 
258 IFAS="Y"RUN 

769 $04401, 5:ЕМО 

890 КЕП INSTRUCTIONS 

818 CLS:PRINT:PRINTTA8(12)“"“FLATTEN" 

820 PRINT:PRINT:PRINT"YOU MUST LANO YOUR 
PLANE SAFELY 

830 PRINT:PRINT" BY OESTROYING THE CITY 
BELOW. 

848 PRINT:PRINT" OROP BOMBS BY PRESSING 
SPACE 

B50 PRINT:PRINT"GAIN EXTRA HEIGHT BY OES 
TROYING 

B60 PRINTTAB(S)"FUEL OUMPS (“CHRS(198)") 
828 PRINT:PRINTTAB(6)"PRESS ANYKEY TO ST 
ART 

875 SOUND31,1 

880 AS=INKETS :AS=]NKEYS:IFAS=""GOTO88O 
830 RETURN 


ETI May 1986 — 93 


LISTING: SIMON 


5 DIME(388),P(3060),N(30B),O08(3008) 


18 as 
11 HS-8 
SIMON 15 T1$4"SIMON" :T2$«" SIHON* : T3$- "BY M.PROCTOR (24/1/86)* 
2p FORTT«1TO28 :PRINTE237, 11$ :PRINT@237, 12$ :МЕХТ 
38 FORTT=1T022 :PRINT@268, LEFTS$(T3$, TT) : NEXT 


This program was inspired by the 
commercial toy of the same 


35 


S0UND4,3;8,3;6,3;9,3;8,3; 15,3; 16,6 


; А LA PRINT@325,"INSTRUCTIONS (Y/N)?" 
name, and involves repeating a Ш 
Sequence of ever-increasing diffi- 58 60508 Jare 
culty. Full operating instructions 2 IFZ$="N"THENB& 
are presented in the program. 66 CLS 
Although written on and for a 62 PRINT:PRINT" IN THIS GAME, THE COMPUTER WILL"; 


VZ-200, the BASIC is simple and 
fairly universal, so conversion to 
other machines will present no 
difficulty. The program's simplic- 
ity also makes it highly flexible, 
providing room for improvement 
and experimentation, which is 
encouraged. 
Michael Proctor, 
Killara, NSW. 


YC ғы 
р 7. 


99 


PRINT"FLASH A SEQUENCE ON THE SCREEN." 

PRINT" YOU WILL BE REQUIRED TO REPEAT" 

PRINT*IT, BY ENTERING IT INTO THE COR-"; 
РНІМТ"НЕ5РОМОІМС KEYS." 

PRINT" IF YOU RETURN THE SEQUENCE " 
PRINT*"CORRECTLY, IT WILL THEN INCREASE"; 
PRINT*"BY AN INCREMENT WHICH VARIES " 
PRINT"ACCORDING TO THE SKILL LEVEL YOU“; 
PRINT"HAVE PICHED." 

PRINT" THE SPEEO LEVEL HAY ALSO BE" 
PRINT"SELECTED.* 

РНІМТ8%81,"НІТ ANY KEY TU CONTINUE"; :GOSUB 1080 
CLS:PRINT:INPUT® SKILL LEVEL (1-EASY; 5-HARD)" ; SK 
INPUT" SPEED LEVEL (1-SLOW;S-FAST)'; SP :S0=(5-SP) *5Й 
CLS 

PRINT@12, *SIMON* 

FORQ«1TO4 : READP ,P$ 

FÜRV«P-32TUP4 32STEP 32 

FORH=-1T01:PRINTOV+H, "B"; 

NEXT :NEXT 

РНІМТЕР,Р%:МЕХТ 
ОАТА132,"Ц",139,"ш=",32%,"А",331,"5" 
РН1МТ0112,"НІ SCORE:";:PRINTO176, "SKILL LEVEL:"; 
PRINT@24B, "SCORE :* ; 


180 Хх„@б:Х=р 

182X2XX«SH 

185 PRINT@253,X:PRINT@125,HS:PRINT@189, SK 

118 FORS=XX+ 1TOX 

126 E(S)=RNO(4) 

138 ІҒЕ(5)-1ТНЕМР(5)-132:М(5)-16:0%(5)-"0":6070165 
146 ІҒЕ(5)-«2ТНЕМР(5)-139:М(5)-28:0%(5)-"шШ“ : СОТО 165 
158 ІҒЕ(5 ) =ЗТНЕМР(5) = 324 2N(S)=23:08(S)="A":GOTO165 


ІҒЕ(5)«ФТНЕМР(5)-331:М(5)-28:04(5)-"5" 
NEXT ç 


179 FORS=1TOX 


180 РКІМТӨР (5), "@" :SOUNDN(S) , 1:FORT=1TOSO:NEXT:PRINT@P(S) ,0$(S); 
198 NEXT 

288 FORT«1TO208 

218 FORS=1TOX 

228 2%-ІМКЕҮ5 

230 2$2INKEYS:IF2$« " * THEN238 

248 IF2$-0$(S) THEN289ELSE316 

286 PRINTSP(S), "É* :SOUNON(S) , 4:PRINT@P(S) ,0$(S); 

294 NEXT Бү: 

3Bg ҒОЯТ = 170250: NEXT :ХХ=Х :GOTO182 

310 нб-Хх N | 

328 SOUNO1,2:RESTORE 

338 РНІМТ6583,%ШАМТ TO PLAY AGAIN (Y/N)?";:GOSU840PP 
340 IFZ$e*Y"THEN-CLS:GOTO8G 

358 CLS:PRINT:PRINT* THANKS FOR THE GANE." 

369 GOTO 360 

1880 2$-INWEV$ 

1818 Z$eINHEY$:IFZ$«" "THEN18 19 

1828 RETURN 


CLS:PRIHT:PEIHT" PRESS "Е" FOR АЙЛ COHTEDL" 
PRIHT:PRIHT" OR 21” FOR канави " 

FRIHT" EMO COPY AYMIALABLE WITH "ия" 

CS=THKE Ф: CS=TMKE YS 
IFCS="K "GOTO? 
IFCS="I" GOTOH 
IFCS=""GOTOS 

CLE: РЕЕІНТ:РЕІНТ" 


DRAWING 
PROGRAM 


This is my version of a hi-res 
drawing program with a joystick 
option and printout capability 
for the VZ200/300. 

R. Winter 


Morpliett Vale SA Ва: а Г NS ERI DL и Ени" 


FRIHT:PREIHT" ШЕЕ ARROW KEYS FOR САИП" 
FRIHT:FRIHT" USE “AS FoR ПА = 950 FoR Ler" 


ic VL E С po em 


FRIHT" USE ' FOR DeL — “зе FOR Сив" 
РБІНТ:РБІНМТ" “Re Ті RUB пит" 
' PRIHT" “РЕ” FOR FRIHTED Cory" 
3 FRIHT" “И Tü CLEAR ЗСВЕЕН" 
РЕНТЫ, "- PRESS 'üG' To GO -" 
Шаш ТНКЕ\ $ : SS-IHKE'SS 
IF E$z2"G'GOTO015 
MODES 1 


ideis Шы, 
TFRS="A"SRER-L SEY -1:GOS5UB1a2 
IFK$z","; -*1:GÜSUgi2z 
IFRS="5 Nectar li (=Y—1 :GDSUB1582 
ТЕБ 1: 50506182 
ТЕЕФЕ"Е ИУ = +1: l e OSLIE 1132 
IFk$=" "''zu-1:6051B132 
ІБЕтш" S =+ яви: БОЗИЕ Я 
IFRS="R"RESETS ri, М) 
IFKS" P" CIP 
IFK&z"II"rLE:FüRHs1TÜUSGB:HERT:GOTOTT 
Ботой 
ТЕ Як=Я 
ІНЕН ҮЙ 
IFX212rA-127 
ЕД e рК = 


iN 


Ia CI] a C c Cn C So +. o3 3 C 
T 
E 
2 
HE: >: = 
п. 
я 
т 
= 
m 
nd 
` 
= 
RS 
i: 
i 
i 
ый 
m 
+ 


ч 


А i+ ree p» E p p poe (053 үү =] 54 (y y CD EI [3 m е ке е RPP ра үа рз — а 


РЕТПЕН 

CLZ:PRIHT:PRIHT" USE LH STICK FOR В DIEECTIUMS" 
enue PRIHT:FREIHT" PRESS ‘LC’ ТП CLEAR SCREEH" 
243 РЕІНТЕФ22, "~ PRESS 'G' TO GO -" 

244 SS=ITHKEYS: Ф-ІНКЕТФ 

IF z$i2"G"GDÜTOZzH4d 

MODES 1 2 

#=35:1=35 

SET“ 4, 1 2 

R=ú ІНЕ" 43 )RHD321 2 

(Ә-ІНКЕТФ:І Ф-ІНКЕҮФ 


T L bo go Narr 
)U (m ce oo T: D) rà cn e c 


ғә 


Сы 


ГО Го кел 
m co gin 


у № Г) № mpra 


254 ТЕН=ЗРА=И-1: GSE 182 
255 ІРя=26й=й-1:7=7-1 : 50506152 
268 IFR-Z +1:50548182 
259 ІРА=2 +1 :ү=ү-1 : 50506182 
278 IFR=3B =l: 50508182 


ТЕН=25 = +1: 95-1 : 50506152 
ІЕН=297=7+1 : 50506152 

ІЕН-21 Үшүзіз Мен 50508182 
IFA=1SRESETC X,Y) 
IFL$-2"C"CLS:FÜR.I-1TÜZEE: HET: БОТО АЕ 
GÜTDOZZB 


76 | YC56 1955: 


MOD СП a cn een c 


АЯ 


өзім 0) Га ГӘ 
Me r m cü sJ 


[АЖ Къ] 


ТЕА-РОТ 5ОМС 


This is а computer variation of 
my four year old daughter's 
favourite song 
R. Winter 
Morphett Vale SA 


ше ык тыс ла К Ыы е кке PP SAP ш 
15955. 77 


RIGE e" РН es aa "РОРТ=)ТОЗЯЯ:НЕХТТ 
ШЕ: 6505116119 

:НЕХТТ 

PST EU d ЕТСЕ TER-FÜT" 
= 2і21.2:22,4:22.4 


тш 
деа 
г 
mm 
m 
Ze 
5 
Mer 
= 


a 25189 
8 PRINTES 


d [i m m — — | |i m cn «c 


m ene «oc d К — 


1я2 РЕТНТ" 
193 FRIHT" 
184 FRIHT" 
145 FRIHT" ma 
186 FRIHT" aad 
187 БЕТПЕН 


y Д ; ida FRIHT" B BL"M H 
5 РЕТНТЬЗЕЯ. 1йз FRIHT" ÉE B E 
38 FEIHT0131, "HERE 15 MY HBRHDLE," 110 FRIHT" ши "7" руд 
48 zülHDz1:4:z21.2:21.2:28,4; 280.4 112 FRIHT" EMER " 
41 FRIHT?z5E£." esas ' 113 FRIHT" m Е 
42 РЕІНТІР " M шан " 114 БЕТПЕН 
43 FRIHTIE "я саг. " 115 РЕТНТ" ин" 
44 FRIHTI: ee " 116 PRINT" m R" 
45 ы; m " Ll РЕТНТУ п и" 
4 ==. ша" 118 РБІНТ" ЕП ки" 
SEDIT." 128 КЕТМЕН 
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“НЕН I БЕТ ALL ч 
) УРЕ, STERMED ШР п 
РЕІНТЕ141," " 
ҒЕІНТ 1 га," " 
БВ SDUHD1E.2; 18, 2: 20,2; 21.2:23, 4; 28 
РЕ1НТ ЭЕ," ға 
ЕПЕТ=1ТО2й:НЕХТТ 
ЕБІНТӘЕ4," WORE" 
ЕПЕТ=1ТП2йЙ:НЕХЯТТ 
FRIHT@ 22 | E 
FÜRT-1TOU2B:MEXTT 
РЕІНТӘ B." я gnus" 
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E PEINTESI FOUR ME ОЦТІ": SOUNDS. 4518, 4: 15,8 

ай FRIMTSA3Z," EMPT':PRIHTE464," ШИ" 

31 FORT=1 T0288: HEXTT 

32 РЕ1НТ@ ДӘФ, "м": SOLMOLG. 1: PRIHTO S35. V" SOUNOLS. 1: РБІНТЕЗЕ, "y" 
ӘЗ SDUHDi4.1:PRIMTG481, "Y": 304613. E: FORTSITOZ0 НЕХТТ SOUND 12, S 
&4 FÜRT-1TÜ1SGB:HEXTT ii 
a5 PRIHMTEASB,." ":PRIMT" HIT "Y^ TO RUH AGAIN": 

эб RS-IMKEYS:HS-IMKEYS:IFRHS-"T"GOTOS 

ЭТ FAS 

аз IFRS 

188 CLS 

181 PRINT 


PING TENNIS | , 1 POKE30744,1:CLS 


A two player game of tennis with Md dns ; о :р=7:Е=30 
по net! You сап move as close to STT E ЕЕ 


your opposition as you like. You 105 FORZ=28672T029152STEP32: POKEZ, 175:NEXT 
ean alae hit the ball into-the 110 FORZ=28703T029183STEP32: POKEZ , 191: NEXT 


walls on the sides. The first per- 115 COLORS:PRINT8O," “ІРКІМТЕО,ВС:РКІМТЕ,СС 
son tó three sets wins The first 120 COLOR4: PRINT@16," ":PRINT@28, DC: PRINTG22, EC 
person to 21 points wins a set. 210 POKE28672+ (32XYX*XY),32 
Like tennis, you have to win the 215 POKE28672* (32¥YY+XX) ,15 
set by two or more points or the 220 YX=YY: XY=XX 
set cc "Ипиез. This game re- 225 IFYY»14THENY-RND (2) -2 
quire. joysticks. . 226 IFYYX2THENYYz1:YzRND(2)-1 

Because of my printers' limita- 230 IFXX>30THENS0O 
tions, | could not include graph- 235 IFXX«1THEN400 
ics sy Abols in the program prir :- 240 XX2XX*X:YYsYY*Y 
Out so here is a list of them: 245 А= (ІМР (43) АМОЗ1) 
line 115 250 IFA=30THENPOKE28704+ (32%B+C) , 32: B-B-1 
"Shift J(x16)" 255 ІҒА=29ТНЕМРОКЕ28704+ (32XB*C) , 32: B-B*1 
line 120 256 ІҒА=27ТНЕМРОКЕ 28704 + (32¥B+C) ,32:C=C-1 
"Shift J(x16)" 257 IFA-23THENPOKE28704* (32¥BtC) ,32:C=Ct+l 

260 ІЕВ214ТНЕМВ-14 
R. Duncan 262 IFC<1THENC=1 


Crafers SA 265 IFB<OTHENB=0 

ТР 267 ІЕС>29ТНЕМС-29 

270 РОКЕ28704+ (32#В+С),175 

275 IFABS(B*1-YY)42ANDC-XXTHENX24 1 : YRND (3) -2 
280 F=(INP (46) AND31) 

285 1ЕР=ЗОТНЕМРОКЕ28704+ (32¥D+E) ,32:р=р-1 

290 IFF=29THENPOKE28704+ (32¥D+E) ,32:р=р+1 

295 IFF=27THENPOKE28704+ (32XD4E) , 32:E-E-1 

300 IFF=23THENPOKE28704+ (32%0+Е),32:Е=Е+1 

305 IFD>14THEND=14 

307 IFE<2THENE=2 

310 IFD<OTHEND=0 

312 IFE>30THENE=30 

315 РОКЕ28704+ (32%0+Е),191 

320 IFABS(D+1-YY) <2ANDE=XXTHENX=-1 : Y-RND (3) -2 
371 6070210 

400 DC=DC+1:IFDC>20ANDDC-BC>1THENDC=O:BC=O:EC=EC+1 
405 ТЕЕС>2ТНЕМЕМО 

410 XX21:X21:60T0100 

500 BC=BC+1:IFBC>20ANDBC-DC>1THENDC=O:BC=O:CC=CC+1 
505 IFCC>2THENEND 

510 ХХе30:Х--1:60Т0100 
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CONCENTRATION 


The program called Concentra- 
tion and is based on the age old 
game of the same name. Be- 
tween ten and fifty cards can be 
selected to appear on the screen. 
Behind these cards are randomly 
hidden pairs of cards. The game 
is finished when all the pairs of 
cards have been uncovered. 

This program is a real test of 
your concentration. 


L. Vella 
Leopold Vic. 


1060 
129 
14@ 
166 
188 
158 
2080 
2260 


REM A GAME OF СОМСЕМТЕНТІОМ 

REM БҮ L.J. VELLR 

REM 1386 

РОКЕЗ@744› 1 

REM 17-24 PREPARE FOR INTRODUCTION 

DATA 28672, 28688, 28928, 23944, 175,198,227,245 

DIM J64):DIM HC 4) | 

ЕПЕ В=1 ТО 4 

READ JCB)? 

NEXT 

FOR B=1 TO 4 

READ НВ? 

NEXT 

IF PEEKS 2867257159 СОТО 47 

CLS 

REM 28-39 DRAWS INTRODUCTION 

GOTO 34 

POKE RF , RG 

НН-НН%1:1Ғ АН=16 THEN RH-8:RF-RHF*16 

AF=AF +1 

RI-RI*1:IFRI-128 GOTO 34 

GOTO 29 

SOUND 31,1 

RJ=RJ+1 

IF RJ=5 THEN GOTO 46 

ЯСЕ=НСЯ 2: RF2JC RJ > 

RH-0:RI-0 

GOTO 29 

GOSUB 10180 

CLS:PRINT&100,"DO YOU WANT INSTRUCTIONS" 

PRINT8172,"(Y OR NO": FOR B=1 TO 300: МЕХТ 

FS=INKEYS 

H#=INKEYS'IF H#="" СОТО 49 

IF H#="Y "OR HS="N" GOTO 78 

CLS:PRINT?9S9,"YOU DID NOT PRESS (Y OR ND" 

GOSIUB 12300 

GOTO 47? 

IF HS$2"Y"GOSUB 19628 

CLS 

РОКЕЗ0744,1 

60508 10488 

GOSUB 10240 

DIM Н<99):КЕМ 75-186 NUMBER POSITION 

DATA 28706, 28709, 28712, 28715, 28718,28721,28724, 28727, 28738 

DATA 28733, 28776,28779, 28776, 29779, 28782, 28785, 28788, 23791 

DATA 28794, 28797, 28834, 28337, 28840, 28843, 28846, 28849, 23852 
DATA 28855,29858,28861;28898,28901;28904,28907,28910,28913 
DATA 28916,28919,28922, 28925, 28962, 28965, 28968, 28971,28974 


DATA 223977 ,289880, 23933, 28986, 28989 

FOR B=1 TO 568 

КЕНО RCB» 

NEXT B 

КЕМ 200-298 GRAPHIC CHARACTERS 

DIM С<25› ç 
DATA 208,2392,175,191,255,223,143, 227, 217,188, 165, 133, 172 


DATA 243,140,231,179,163,252,131,185, 250,136,169,184 


240 

260 FOR В=1 TO 25 

238 READ СВ) 

299 NEAT 

295 КЕМ 300-390 SHUFFLES CARDS 

388 DIM De AK > 

310 FOR B=1 TO AK 

328 E-RNDCRL 2 

334 IF CCE2-8 СОТО 320 

348 IF CCE) 2300 THEN CCE2-CCE2-200 :1=1 
358 ОСВо-С<Е2 

3589 IF Ізі THEN CCE»2-9 

378 IF I20 THEN CCE ›=ССЕ +200 

389 1=0 

396 NEXT 

208 DIM Н$ 42 

705 REM 710-735 SCOREBOARD IMFORMATION 
718 B=RHDC22:IF В=2 THEN Х=1 

722 PRINT@SS3, " " 


Ус.58 114 1 of 4 


2724 IF W-1 THEN Х=0 
725 РКІМТ09449,Б%;" “jY 
726 IFWK»1 PRINT(464,R$;" "jZ 
727 PRINTH425,"¢ SCOREBOARD >" 
728 IF Z4Y-RL GOTO 12100 
729 IF «-1 РЕІНТЕЗ5З, АФ 
230 IF 4=6 РЕІНТЕЗ5З, E$ 
735 IF И=1 PRINT#464, "ATTEMPTS"; 
738 КЕМ 739-834 HUMBER SELECTION 
739 С=1 
748 IFR=4ANDA=10RR=4ANDAR= 1 ORR=4ANDG=10RR=4AHDGG=1 : C= 
741 Я=0: AA=0: К=й : s= :66=9 : HP=D 
742 IFCz1:H$(]122"":H$(222"":H$( 322" ":H$C 4 OS 
743 IFC-3:H8( 3 =" : H$( 4 5z"" 
744 IFC-1 PRIHTG8418," u 
745 IFC=3 PRIMTR422," " 
(47 ТЕС=1ТНЕН lJ=418 
748 IFC=3 11-422 
750 FOR R-C TO 4 
755 IF R<=2 PRIMT@SSS, "SELECT YOUR 15942581 HUMBER x 
760 IF R2=3 PRINT@SSS,"SELECT YOUR БЕЯ: МА} MUMBER в 
765 FS-INKE''S 
778 GS=IMNKEYS:1F G$="" THEN 765 
775 IF GS="O"ORGS="1"ORGS="2"ORGS="S"ORGS="4"ORGS="5" THEN K=1 
780 IFGS="6"ORGS="7"ORGS="93"ORGS="9" THEN K=1 А 
785 IF K=1 THEN 790 ELSE 765 
790 РЕТНТ@О, 6$ 
795 SUUND 31,1 
890 UzU-*1 
816 IF U-420 LET U=422 
315 HSCR GS 
820 CS=HSC 12%Н%6 22%Н%6 2 +H 4 > 
825 US=LEFTS(CS,2) 
830 ES-RIGHT$CCS$,2) 
834 S=VALC D$ > 
835 REM 836-979 HUMBER PARAMETERS CHECK 
836 IF R-2 GOSUB 956:1Е HH-1 UR 6=1 OR GG=1 UR Н-1 GOTO 739 
837 IF R-2 СОТО 1020 
848 THVALCES) 
$41 IF R24 GOSUB 356:1F AA=1 OR 6=1 OR GG-1 UR Н-1 GOTO 746 
842 К-й 
850 NEXT 
652 PRINT#S25, " ^ 
855 GOTO 1020 
656 (-Н65):М-НС Т) 
857 IF К=2 H=PEEKCL >: O=PEEKCL-1 2 
858 Р-РЕЕКсСМ2:4-РЕЕКСІМ-12 
853 IF R=2:1F М<48 OR Н>5т THEM LET A=1 
550 IF R=4:IF Р<43 OR P2S7 THEN LET Н=1 
961 IF $>АК OR ТУЯК THEN G-1 
862 IF Е=4 AHD S=T THEN НЯ=1 
863 IF 5-й OR R=4 AND Т=0 THEM GG=1 
556 IF GG=1PRINT@SS5, "POLAR а ЗЕ ЛГ РИШАТ " : GOSUB1 2304 
870 IFG=1PRIHTGS95, "MPENN H ен ана ITE ; НК: GDSUB12200 © 
372 IF НН-ІРКІНТЕЗ85, "sl DE i IAA BST" : 6051812308 
950 IF A=1AHCG=GANCAR=GAHDGG=6 THEN LETNP=1 
268 IFHF=1FRIHTIESSS, мята ШЕТШ: EEUU OAA" :60$1812398 
970 RETURH } 
1815 КЕМ 1220-1120 DISPLAY ЈАРЕ 
1020 IF R-2 PORE 552,04 5:РОКЕ RCS2-1,0€ 82:S0UHD1, 1: СОТО 342 
1040 РОКЕ ACTI САТ: РОКЕ BET2-1,D6 T». 
1855 IF W=1 THEN AC=AC+1 
1050 IF PEEKCL* = РЕЕК(М2 GOZUE 3008 ELSE 1190 
GOTO 728 
SOUND 18,1 
О Мы НЕЕ. ТИ ВРЕ НОГ a)" 
FOR В=1 TO *:НЕАТ 
РЕІНТІЕЗ95," " 
POKE L,H:PÜKE L-1,0:FOKE M,P:POKE 1-1,9 
ЕКЕМ 1140-1160 WHO GOES HEXT 
IF ж=й THEH #=1:G0TU 720 
IF й=1 THEN Xx-28:GÜTO 729 
КЕМ 2200-3150 SCOREBUARD 
3000 PRINT@413," B 
380? IF х=й PEIHTGZS2," ";ES;" YOU МАТСНЕС A PAIR" 
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IF A21 PRIHT@352," ";H$;" ‘YOU MATCHED A PAIR" 
SOWHO 16,2515. 2/20,2; 51, 8:29, 2425, P127, 2] 28,2 

IF W=1 БОТО 3148 

IF 4-8 THEN '='+1 

IF 421 THEN 2=2+1 

IF Z*Y5RHL RETURH 

IFA=0 FRIHTI; 335, "POL ЕШ М ГУ E EON 203€ I) u 
IFA-1 FRIHTG335, "YID EE ЛІ Bd Sd Ae) # 
3118 SOUHO 10,2;209,2 
3115 FOR B=1 TÜ V:MEXT 
3128 RETURN 
3149 тҮ=Ү+1 
3160 RETURN Е 

%; COLOR 8,1 
PRINTBOS, "A GAME OF" 4 
FRIHT@193, "CONCENTRATION" i 
РЕІНТӘ4ЗЗ; "Вт L.J VELLA" 
5 FUR В=1 TO 2000 :МЕХТ 
B ELS 
35 RETURN 

10249 COLOR 2,6 ` 

102680 FRINT" uwa nrFr'' 

16256 РКІНТЕЗ2; "ш іш гш сш 4ш 5ш CN ги сш 9H] саи" 

19340 FRIHTOSO4, " iumauaÑ[ ' 
19318 IF К >= 20 ЕБІНТІР5, “M1 181201381481 51 681 711 381 Soom" 
18329 4 ҒРІНТЕ 125 , " mwa aF: 
18348 IF HK2-30 FFEIHT0@G1628,"mN218W22WR2OSE234E2SE2SN2S Ро о СЗО а" 
КИТЕР ИС... 
10388 IF HkK2-240 FRINT@S24, "5132333435 EQS RIES мова" 
18400 IF НК>-4й Jé —— ————— 
180428 IF AK=5Ø 
19449 IF AK aS 
134335 РЕІНТІРЗ593," PLEASE WAIT WHILE I АМ # 
16456 РКІНТӘЗЗ0," SHUFFLIHG THE CARDS " 
19469 RETURN : 
19459 FRIHT" SELECT THE NUMBER OF FLATERS C1 DR Z 
19451 FoR E21 TÜ 299:НЕХТ 
1452 FS-IHKEYS 
19453 HS=IHKE’S: IF H$z"" GOTO 10452 
19434 Wz"VRL&H$? 
19455 IF H-1 OR Wee GOTO 10520 
10454 CLS:FRIHTE226, "ҮШУ DID HOT PICK A 127 OR 422" 
18425 GÜSUB 12380:CLS:GOTO 19489 
185260 CLS:FÜR Еті TU 388:HEXT 
18521 CLS:FRIHT" ENTER THE HAME ОҒ THE FIRST" 

2525 INPUT" PLAYER АМС PRESS RETURN ";БФ 
; TFLEMS E 2=950Т019521 
IF ПЕНСЕФ2411 GOTO 15545 
Ш5:РЕІНТІРІ ЙИ, "ҮШШЕ НЕМЕ НАС МОВЕ THRH" 
РЕТНТ® 125, "ТЕН LETTERS" 
DISIE 12200: CLS: GITI Lasse 


Li Cf в а 


lu 

1853 

185340 IF И=1 THEM А=9:50Т01550 

19558 CLS:PEIHT" ENTER THE МАМЕ OF SECOHD" 
10555 IHFUT" FLATTER AHO PRESS RETURH "Не 


10260 IFLEHZRS»-98650T0198558 
19562 IF ПЕН AS 411 GOTO 19550 
CLI: РЕТНТЕТЯЯ, "ТОМЕ НАМЕ HAC MORE ТНАН“ 
555 PRIHTEL "ТЕН EETTERS" 
19554 GOS 19: СЫ: 501019559 

13 CLS: “ЕБІНТЕЗЗ, "WOULD “OI PLEASE SELECT THE" 
ЕЕІНТІЗ131, "АММОЧНТ OF TIME THE S'YTMEOLS 
ЕКІНТІ163, “STAT DISPLAYED OH THE SCREEH" 
"Е. SECOHOS" 
SECUHDS" 
SECOHDS" 
SECUHDS" 
SECOHD' S" 


ат 


Cn + Cà à к 


FS=IHREYS 
HS=IMKEYS: [Е HS="" GOTO 18592 
VEVALCHS wk lagi 
IF "= ANG wv&-2z5u0a8 THEM GOTO 158529 ELSE 16594 
ELS 
1 CLE: FRINTASS, “MOULD 0 PLEASE SELECT HOW" 
Q1 РЕ1НТЇ#Ї 11, "MAN ЗШИНКЕЗ ҮП) MILO LIKE" | 
2 РЕІНТФ153,"Т0 FLAY AHO THEH PRESS": PRINTELSS, "RETURN" 


ama 
m mama 
абат Cn =n Cn en c 
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19609 
185616 
16611 
14612 
10619 
19620 
19630 
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10640 
16664 
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18765 


1957 
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PRINT@227, "Hia YOU CAM ONLY SELECT" 
РКІМТФ253,"10,20,20,48,0в SB" 

PRINT&222," " 

ИРЕЕТ НО ПА MID LET ET ; AK 

IF НК=15 OR BHK-zODRHK-3B DR AK=4@ UR НК=50 THEN GOTO 10612 
CLS:PRINT&1BO, "YOU DID NOT SELECT" 
FRINT&132,"19,28,30,40,0R SB":GÜSUB 12380 

GOTO 19689 


`RL=RkK.Z2 


CLS:RETURH 

CLS: RB=8 

COLOR, 6 

PRIHT" IHSTRUCTIOHS" 

FRIHT" ESSE aera ' 

PRINT" ‘OUR GAME OF COMCEMTRATION IS" 
ЕЕІНМТІРЗБ, "WERT ERSY TO PLAY. SIMPLY ATTEMPT" 
PRINTES "TO MATCH THE FAIRS OF SYMBOLS" 
FRIMT@16@,"HIODEN BEHIND THE СНЕр5.1Т САН" 
РБІНТІ192,"ЕЕ FLAYEO EY ОНЕ OR TWO FERSÜHS." 
FRIHTIvzZ24, "питна uaoenlibi" 

e," INITIALLY THE COMPUTER THROWS" 
2253, "А DICE ТО SELECT WHO GOES FIRST." 
FRIHTG: ."HEXT THE COMPUTER WILL ASK IN" 
FREIHTISSZ,"TURH,ERHCH FLRYER TU PICK THEIR" 
FRIHTESS4, "FIRST ANC SECÜUHD HUMBER, WHICH" 
LÜSUB 1200% 

FRIHT"REFRESEHTS THO CARES: IF THESE" 


35 РЕІНТІРЗ2,"ТИО LAROS HAWE IDENTICAL SYMBOLS" 


PRINT#E4, "THE CARDS: WILL STAY CISPLAYED" 
PRIHT@35, "ЯНО THE COMPUTER WILL ALLOCATE" 
PRINT#123,"A POINT TO THE РЕЕЗОН WHO SELEC-" 
FFEIHTE 1843, "-ТЕС THEM,HS WELL AS GIVING THAT" 
FRIMTG192,"PFERSUM RHOTHER TURH.IF THE THO" 
РЕ1НТ@224,"НЕЕ НОТ THE SAME THE CARDS WILL" 
PRIHTIZ2&6,"TURH OVER TO THEIR ORIGIHRL MUM" 
8, "ЕЕК. ТНЕ IDER OF THE GAME 15 TO" 
."EKEHEMEER WHAT SYMBOLS ARE UNDER" 
: "ЕНСІН. СНЕС, .Sü HS TO ASSIST IH" 


PRINTES 
PRINT "CARDS LATER OM. THE PLAYER WITH" 


PRINTBS4, "THE EHD ШЕ "THE GAME MIHS." 
РЕІНТӘЗЕ, "Ii zu al yd a" 

FRIHT&122," IF OWL ПНЕ FLATER FLATS, THE" 
PRIMT#1I68, “COMPUTER ZHÜWZ НОМ MANY ATTEMPTS" 
FRINT@ 152, "WERE МАСЕ ТО БІЗРІНҰ ALL THE FA-" 
РЕІНТІР224,"ІКЕ OF STMBOLS. Мама HHEH Я HUME" 
FRIHT 2,"ER БЕТИЕЕН 1 š 3 15 REQUIRED, 


PRIMT@S32, "SELECT A ZERO FIRST.FOR EXAMPLE 01,95,09, 
FRIHT&SSZ, "азо 159 Ae вава ER E UL DR ИП" 
AB=1 

РЕТНТ 15," PRESS- ЭРИНЕ" CONTINUER 
FS=IHKEYS 

HS-IHKE'YS:IF HS="" GOTO 128928 

IF H$=" " GOTO 12989 


IF НБ-і AHD H$-"I" GOTO 155628 
GOTO 1zgzh 


CLS:RETURH 

IF И=2 AHD 27 РЕНТЫ," "JAS" ‘YOU WOH ” 

IF Wee RHD fee PRIHT@SS2." "5653" "DU WOH ^ 

IF Ме? AHO =Z ЕКІНТЕЗ52," “OW BOTH МІН IT'S A DRAW " 


IF М=2 РЕІНТЕ4ІЗ, " 

IF И=1 PRIHT@ 252, " : " 
IF ИМ-іРБІНТЕЗ15,БЕш;" % 

IF M21FRIHTEA34Z2," OU FIHMISHED IH";RC;"HTTEMFTS" 
FPRIHT(3234," ШШМАалаалы 298 509] алсын See" 
SOUMC z8,1;18.1;20,1;18,1;20,12;18,1 

FS=INKEs'S 

H$-IHKET$:IF H$-2""GÜTO 12240 

IF H$z" “THEM КИМ ELSE 12240 

SUUHD 21,1;22,1;27,1;29,1;23,1; 21,1; 12, 1; 17,1; 19, 1; 12,1 
SIHO 11, 19,1215» 17.3013 1,1 

БЕТМЕН 


SUPER SNAKE 
TRAPPER . 


Super Snake Trapper is a two- 
player game of skill. You have to 
move your snake around the 
screen without hitting the walls, 
the other snake or yourself. If you 
do hit something your score goes 
down. If it reaches zero you lose. 
If you are about to crash you can 
press the fire button and you will 
be put somewhere randomly on 
the screen, but the computer 
might land you on something 
and you will lose points. Joy- 
sticks are required to play this 
game. 

Because of my printer's limita- 
tions | could not include graph- 
ics symbols in the program print- 
out so here is a list of them: 
line 15 
"Shift A.Shift Y (x21),Shift $" 
line 20 
"Shift LCtrl:: SUPER SNAKE 
TRAPPER Ctrl:,Shift" 
line 25 
"Shift D,Shift T(x2!),Shift Е" 
line 30 
"Shift J, BY ROBERT DUNCAN 
Shift ]" 


line 55 

"Shift |" 

line 60 

"Shift |" 

line 700 

"Shift J(x2)"Shift I(x2)" 

line 710 

"Shift J(x2)'"Shift I(x2)" 
R. Duncan 
Crafers SA 


5 P 
10 


OKE 30744,1:CLS 

PRINT@292, "HIT ANY KEY TO CONTINUE" 
COLOR RNDt6)+2:PRINT@36, * . 
PRINT868," SUPER« SNAKE 4 TRAPPER " 
PRINTG100,* 2 spaces . 
PRINT8167,* BY ROBERT DUNCAN * 
PRINT8203,*(19/12/84)* 
РЕ1МТ@292," 
КФ=ІМКЕҮФ:ІЕ INKEY$=""THEN 10 
PRINT@354, "ТҮРЕ IN PLAYER 175 NAME". 
COLOR 3:PRINTG423,; :INPUT S$:PRINTG423,* * 
PRINT8371,"2*:COLOR 4:PRINT8455,; :INPUT Т$:РВ1МТ@455, * * 
PRINT@294, "PRESS <<S>> TO START" 
SOUND 15,1:SOUND 16,1 
K$=INKEY$: IF INKEYS(?"S'THEN 75 

05-32500:У5-37500 

CLS:MODE(1):COLOR 2:FOR А=0 TO 127:5ЕТ (A,0) :SET(A, 63) : МЕХТ 
AZ=3750:FOR А=1 ТО 62:1SET(0,A) :SET (122,4) :NEXT 

FOR А=1 TO 62:SET(0,A) :SET(127, A1 :NEXT 
Wz17:X2171Y2110:2212:M121:X120:Y12-1:2120 

AZ-AZ-1:COLOR 3:U=(INP(43)AND 31) 

IFU=15 THEN Х=ВМО (62): Ч=ВМО (126) 

ТЕ 9-30 THEN W1=0:X1=-1 

IF 0-29 THEN М1=0:Х1=1 

IF U=27 THEN Wi=-1:X1=0 

IF U=23 THEN W1=1:X1=0 

IF U=26 THEN 41=-1:Х1=-1 

IF U=25 THEN W1=-1:X1=1 

IF U=22 THEN W1=1:X1=-1 

IF U-21 THEN W1=1:X1=1 

W=W+W1:X=X+X1 

IF W=Y AND X=Z THEN 300 

IF POINT(W,X)=2:US=US-AZ:N$=S$:GOTO 400 ELSE160 

IF POINT(W,X)=3:US=US-AZ:N$=S$:GOTO 500 ELSE 165 

IF POINT(W,X)24:US-US-AZ:N$-S$:GOTO 600 ELSE 170 

SET (M, X) 

COLOR 4:V-(INP(46)AND 31) 

IF У-15 THEN Y-RND(126) : 2=АМр (62) 

ТЕ V=30 THEN Ү1=0:21=-1 

IF У-29 THEN Ү1-0:21-1 

IF V=27 THEN Ү1=-1:21=0 

IF V=23 THEN Ү1=1:21=0 

IF У-26 THEN Ү1--1:21--1 

IF V=25 THEN Yl=-1:Z1=1 

IF У-22 THEN Ү1=1:21=-1 

IF V=21 THEN Ү1=1:21=1 

ҮсҮ%Ү1:2-2%21 

IF W=Y AND Х-2 THEN 300 

IF РОІМТ(Ү,2)-2:У5-У5-А2:М%-Т%:60Т0 400 ELSE 240 

IF РОІМТ(Ү,2)-4:У5-У5-А2:М%зТ7%:60Т0 500 ELSE 245 

IF РОІМТ(Ү,2)-3:/У6-У5-А2:М%-Т76:60Т70 600 ELSE 250 

SET(Y,Z) 

GOTO 120 

MODE (0) :CLS: VS=VS-AZ:US=US-AZ 

PRINT@38,"YOU HAD А COLLISSION" 

GOTO 700 

MODE(O):CLS:PRINTG32,N$; ", YOU HIT THE WALL“:GOTO 700 

MODE (0):CLS:PRINT@32,N$}",YOU HIT YOUR OWN TAIL':GOTO 700 

MODE (0) :CLS:PRINT@32,N$;",YOU HIT THE OTHER SNAKE":GOTO 700 
COLOR 3:PRINT@203,"  'i:PRINTUSING"HHHHH, ";US; ІРБІМТ" ` 

COLOR 4:PRINTG267,*  *;:PRINTUSING'HHHHH,*;US4:PRINT* " 

IF У5<1 AND US<! THEN PRINT8362,"IT IS А ОКАН": СОТО 760 

IF US«1 THEN PRINTG3642,;,T$1" WON":GOTO 760 

IF VS¢1 THEN РБІМТ8З62,%5%)" WON":GOTO 760 

FOR А-0 TO 3000:NEXT:GOTO 105 

PRINT@455, “ANOTHER GAME (Y/N)?" 

КФ=ІМКЕҮФ: I$=INKEY$: IF I$-*Y'THEN RUN ELSE IF ІФ) "М" ТНЕМ770 


":;SOUND 15,1 


Ус 58 


1985. 83 


WORM @ ? HH HHH HHH HHH ЗЕ ЗЕ ЭЕ ЗЕ ЭЕ ЗЕ ЭЕ ЭЕ ЗЕ ЗЕ ЗЕ ЗЕ 

д ** WORM ж 
The idea of this game is to move 2 '* FOR UNEXPANDED Ж 
from one side of the screen to заж V2-200/300 " 
the other without hitting the 4 '* BY IAN THOMPSON ж 
dots, the walls, or your own tail. SOC EEE JEJE EE JEJE JEE JE JEJE JE AE JEJE EE FEAE FE 
If you do manage to reach the 8-7 
other side, bonus points аге 9 GOSUP 1000 
awarded before proceeding to a 10 CLS:POKE 30744,0 
new frame. JU U$="Q":0$="A":L$="M":R$="," 

1. Thompson 85 Eu 
40 SC=0 
Collaroy Plateau NSW AS Х<10:Ү-5:Ү151:Х1-0 


50 MODE(1):COLOR 3,1:REM — CHANGE TO COLOR 3,0 FOR B&W MONITOR 
60 FOR А-1 ТО 127:SET(A,0) :SET(A, 63) :NEXT 

70 FOR А=0 TO 63:5ЕТ(0,А):5ЕТ(127,А):МЕХТ 

80 FOR А-111 TO 127:COLOR 4:SET(A, 63) :NEXT 

85 COLOR 3 

90 FOR A-1 TO 45:SET(63,A):SET(95, A) :5ЕТ( 79, А+18) 
100 SET(47,A+18) :SET(24,A) :5ЕТ(111,А+18) : NEXT A 
110 А%-ІМКЕҮ%:ІҒ А%-Н% THEN X1=1:Y1=0 

120 IF A$-0$ THEN X1-0:Y1-1 

130 IF A$-L$ THEN X1=-1:Y1=0 

140 IF A$-U$ THEN X1=0:Y1=-1 

1790 X=X+X1:Y=Y+Y1:IF POINT(X,Y)=2 THEN 300 

180 IF POINT(X,Y)-4 THEN 380 

190 IF POINT(X,Y)=3 THEN 350 

220 SET(X,Y) 

210 SC=SC+1 

220 COLOR 2:SET(RND(127),RND(63)) 

290 GOTO 110 

509 SOUND 25,6 

302 CLS:PRINT@946, "FRAME МО. ";Z:PRINT 

303 PRINT"YOU HAVE PEEN DESTROYED" 

505 PRINT 

310 PRINT"SCORE:";SC 

312 PRINT: IF 5С>-Н5С THEN HSC=SC 

315 PRINT"HIGHEST SCORE:";HSC 

320 PRINT:INPUT"ANOTHER FRAME (Y/N)"3A$:IFA$-"Y*THENZ-Z-*1:GOTOAQ 
330 IF A$-"N" THEN CLS:PRINT а 237,"BYE!"* : END 
340 GOTO 300 

350 SOUND Z5,6:CLS:PRINT8322,FRAME NO. "Z; 

352 PRINT:PRINT 

355 PRINT*YOU HIT YOUR OWN TAIL * 

560 PRINT"YOU HAVE BEEN DESTROYED" : PRINT:GOTOZ10 
580 CLS:SOUNDZIO;,7:PRINT:PRINT"S5QO0 POINTS BONUS* :SC=SC+500:FORA=1TO 500 
390 NEXT A:GOTO 45 

1000 CLS:PRINT@75,"_W ORM " 

1010 РКІМТӘ225,"ІАМ THOMPSON, COLLAROY PLATEAU" 
1020 FOR І-і TO 1000:NEXT I 

1030 CLS:PRINT"THE IDEA OF THIS GAME IS TO MOVE"; 
1035 CLS:PRINT“FROM ONE SIDE OF THE SCREEN ТО" 
1040 PRINT"THE ОТНЕК, АМО INTO THE RED LINE." 

1050 PRINT"ONCE YOU HIT THE RED LINE YOU" 

1060 PRINT"GET 500 POINTS BONUS AND YOU" 

1070 PRINT"START A SECOND FRAME." 

1080 PRINT:PRINT"THE DANGERS ARE THE WALLS, THE" 
1090 PRINT*DOTS, AND YOUR OWN ТАП." 

1190 PRINT3482,"PRESS «RETURN? TO CONTINUE"; 

1105 INPUT А$ 

1110 CLS:PRINT@72, "DIRECTION KEYS" 


1120 РКІМТӘ139, "9 = ОР" 

1130 РКІМТӘ203, "А = DOWN" 
1140 РКІМТӘ267, "М = LEFT" 
1150 PRINT3J31,", = RIGHT" 


1160 PRINT@482,"PRESS «RETURN? TO START"; 


1170 INPUT 4% 
1180 RETURN 
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DOGFIGHT 


iiv DOG FIGHT * 
You are in a plane and must en- + FOR ВК VZ~200 * 
deavour to shoot down another E BY IAN A.THOMPSON * 


жж E ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЗЕ EX 

CLS:SOUND 25,6:PRINT@154,"_D O G LAS суд n TSN 
PRINT@225,"IAN THOMFSON,COLLAROY PLATEAU" 
PRINT@449,"INSTRUCTIONS (Y/N) "; 


plane. Using the arrow keys, you 
position the target plane in the 
dead center of the sights. You 
shoot with the Z key. 


':00wX40 0 AW NRK O 


I Th а INPUT ANS 
. 1 потрѕо IF LEFT#(ANS,1)="Y" THEN 1500 ELSE 10 
Collaroy Plateau NSW 10 SC=0:ML=G 


20 MODE(1):COLOR 5 
ЗО FOR К=0 TO 127 
. 40 IF K>63 THEN 60 
50 IF К>24 AND К<40 THEN SET(SO,K):SET(78,K) ELSE SET(64,K) 
60 IF K»49 AND К<79 THEN SET(K,25):SET(K,39) ELSE SET(K,22) 
70 NEXT:X-RND(122)-1:Y-63:COLOR 4:GOTO 140 
110 RESET(A,4) : RESET (&*1,4) : RESET (A-1,4) 
120 RESET (A+2,4) : RESET (A-2,4) : RESET (A, Y-1) 
120 У=У-1:1Е Y-1 THEN 200 
140 SET(X,Y) :SET(X*1, Y) ÀSET(X-1, Y) 
150 SET(X*2,Y) x SET(X-2, Y) SET (X, Y-1) 
152 RESET(X,Y) :RESET (X*1, Y) : RESET (X-1,Y) 
154 RESET(X*2,Y) : RESET(X-2,Y) :RESET (X, Y-1) 
160 GOSUB 1000 
170 GOTO 110 
200 ML=ML+1:IF ML-10 THEN 210 ELSE 20 
210 CLS 
220 PRINT:PRINT"YOU SHOT DOWN";SC,"OUT OF 10 PLANES" 
230 PRINT:PRINT:PRINT"ANOTHER GO"; 
240 INFUT ANS 
250 IF LEFT#(AN#,1)="Y" THEN RUN ELSE 260 
260 CLS:PRINT"THANKS FOR THE GAME, ВУЕ!":ЕМО 
1000 A-X ; 
1010 ТЕ INKEY£$-"," THEN 1050 
1020 IF INKEY£$-"M" THEN 1070 
1030 IF INKEY£-"Z" THEN 1100 
1040 RETURN 
1050 X=X+2:IF Х>125 THEN Х=125 
1060 RETURN 
1070 X=X-2:IF X<2 THEN X=2 
1080 RETURN 
1100 SOUND 15,2 
1110 FOR K=34 TO 64 STEP 2 
1120 SET(K,96-K) : SET (127~K, 96-k) 
1120 NEXT | 
1140 FOR K=34 ТО 64 STEP 2 
1150 RESET (K,96-K) : RESET (127-K,96-K) 
1160 NEXT 
1170 IF X«67 AND Х>61 AND Ү<54 AND Y>SO THEN 1200 
1180 SOUND 1,2 
1190 RETURN 
1200 SOUND 29,2;21,2 
1205 FOR T=1 TO 3 
1210 FOR K=1 TO 20 
1220 SET(RND(10) +59, RND(10) +27) 
1250 NEXT 
1240 FOR К=1 TO Зо 
1250 SET (ВМО (20) +49,RND (30) +17) 
1260 NEXT 
1265 NEXT 
1270 SC=SC+1:ML=ML+1:IF ML=10 THEN 210 
1280 GOTO 20 
1500 CLS:PRINT"THE GAME IS CALLED DOG-FIGHT, " 
1510 PRINT"AND AS THE NAME SUGGESTS, YOU AREIN A PLANE AND"; 
1520 PRINT" MUST ENDEAVOUR TOSHOOT DOWN ANOTHER PLANE." 
1550 PRINT"SIGHTS APPEAR ON THE SCREEN, ANDYOU MUST MOVE YOUR"; 
1540 PRINT" PLANE (USING THE LEFT AND RIGHT ARROW KEYS) ТО "; 
{550 PRINT'GET THE TARGET FLAME DEAD TN THE CENTRE ПЕ THE ", 
560 PRINT" SIGHTS." 
1570 PRINT"YOU SHOOT WITH THE 'Z'KEY." 
1580 FRINT"YOU'LL BE GIVEN 10 PLANES TO " 
1590 PRINT"SHOOT DOWN, AND AT THE END TOLD" 
1600 FRINT"HOW MANY YOU MANAGED TO GET. You"; 
1610 PRINT"WILL THEN BE OFFERED A NEW GAME. "; 
1620 PRINT" PRESS «S» TO START THE GAME." 
1630 IF INKEYS<>"S" THEN 1650 
1640 IF INKEYs$-"S" THEN 10 
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BEZERK 
Bezerk is a games program writ- 
ten for the VZ200/300. The idea is 
that when in playing mode you 
move a dot around the screen 
running through the red dots. If 
you do not reach the red dots in 
time and you touch them they 
will turn yellow and you die! Do 
not touch the walls or anything 
yellow. At the end of the game 
you will be given a bonus point 
for every red dot you ran over. 
R. Banks & M. Saunders 
Mackay Qld 
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ARGGGGH! 
This exciting program written for 
the VZ200/300 re uires a good 
deal of skill. Weave yourself in 
and out of the yellow dots, avoid- 
ing them and the walls, until a 
hole appears in the top middle of 
the screen. You are only allowed 
to go back on yourself a few 
times, so beware. 

R. Banks & M. Saunders 

Mackay QLD 
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ENCODE/ еі 
DECODE гө PRINTI 


Encode/Decode is ап encoding 118 ЕС 
and decoding program written 150 FRIHTE 
for the VZ200/300. When run it 

will ask you to input a word or 

secret message. After typing in 

your secret message, on the line 

below will appear the message in 

code form. It will then ask you to 


К 5 3 


input a secret message in jum- 
bled form which it will then de- : 
code. 


R. Banks & M. Saunders 
Mackay Qld 
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САТСН 


A lot of skill and patience is ге- 

quired to use this program. You 

must trap the other moving dot 

into one spot on the screen. To 

do so use the following com- 

mands ~ 

W — up 

S — down 

K — left 

L — right 

E, R — to turn yourself visible 

and invisible. 

Please note that the designers of 

this program takes no responsi- 

bility if you hit your computer 

through frustration and anger! 
R. Banks & M. Saunders 

Mackay Qld 
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PRSTHENSE 
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2 CLS: COLOR? с 
ӚРКІМТ АБТ) tu- FOE" 


SINFUT"INSTRÜCTIONS (Y/N) ":A$: IFAS="Y"THENGOSUB2000 
7F=66:H=463: Y=1:L=20: X=62:M=3 
1OMODE (1) :U=0 
156050864000 š 
2OFORAZ1TOZO:SET(RND(127).RND(4)) : МЕХТ 
2SCCORS 
27FORA=1 TOS: SET (H+A.L) : NEXT 
28COLOR2 
ЗО FORA=1T010: SET (X+A.Y) : NEXT 
SSCOLOR?: Y=Y+1 
40 ЕОКА=1ТО14: SET (X-2+A. Y) NEXT 
45COLOR4: Y=Y+¢ 
50 FORA=1T024: SEET (X+A-7. Y) : NEXT 
өс Y=Y+1 
7OFORA=1TO14 SET (Х-2+й, У) : NEXT 
SF=H=6G: 0=0+1: IFU>4 THEN7ZELSE IFM=2THENM=2ELSE IFM=2THENM=4ELSEM=2 
2SCOL OFM 
BOFORA=STOS: IFA>2OTHENL=32 
BSIFADZ2THENL-44 
9OISRND(CO) : DERND (2) 
10050К2-1Т01 
1101F4244ANDFOINT (Р.А) THENGOTO1O 
120IFD=1THENF=F-1ELSEF=FP+1 
122IFFg1THENF=1:D=2:A=A+1:G6GO0T0120 
1241Е2>1 26 ТНЕМР=126: D=D+1:A=A+1:GOTO120 
1271 FA=LANDF'=>HANDFE =H+6THENSOUND2S. 5: F=68: L=20: H=63:GOTO7S 
130SET (F.A) 
13560SUB1000: COLORM 
140МЕХТ 
145МЕХТ 
150500М02.4:2.4:5,4:5Т-57%%: IFST-CTHENSOOOELSEL -20: H=62: 5607075 
1000A$-INKEYS$: IFA$-2""THENRETURN 
1OOSCOLORRND (=) +1 
1006ІЕН>121АМБрАФ-"."ТНЕЕМ1040 
1008IFH41ANDA$-2"M"THEN1040 
10101FA$z2"M"THENSET (Н- 1.) RESET (H*E,.L) :H-H-1 
1020IFA$z-","THENSET (H*6. L): КЕЅЕТ ‘Н, L) : Н=Н+1 
1025COLOR4 
1040RETURN 
2O000CLS:FRINTTAB(12) "U-FOE" 
ZO1O0FRINT"YOL MUST DEFEND THE CITY AT THE BOTTOM OF THE "; 
2OZ2OFRINT"SCREEN FROM ALIEN MISSILES WITH YOUR THREE ": 
2OSOFRINT"SUPFERSAUCERS(TM). THE CITY CAN WITHSTAND THREE "3 
2040FRINT"DIFECT HITS BEFORE IT IS DESTROYED." 
ZOSOFRINT"CONTROLS АКЕ: " 
2O60FRINT"M-LEFT . RIGHT" 
207O0FRINT"IF YGU MISS THE MISSILE WITH YOUF: FIRST SAUCER "; 
2OBOFRINT" ANOTHER WILL AFFEAR DIRECTLY UNDER ІТ AS SOON ": 
2090FRINT"AS ONE OF CONTROLS IS FRESSED. THE SAME "35 
2100FRINT"WILL HAFFEN WITH THE PECOND ВОТ NOT THE THIF:D, ' 
211ОРБІМТ"РКЕ55 ANY KEY TO FLAY.' 
2120ІРІМКЕҮФ= " "ТНЕМ2120 
21ЗОКЕТОКМ 
400ОҒОКА=40Тт080 
40101 =КМр (ABS ( (А-29) -20) ) +44 
4020FORJ=62TOISTEF-1 
40205ЕТ (A.J) 
404ONEXT: NEXT 
4045CLOR1 
4OSOFORA=1TOZ0: SET (RND (18) +48. КМО (12) +49) : NEXT 
4060COLOR2 
4070RETURN 
SOOO0SOUNDS.S9:4.5:1.5 
SO10CLS: FRINTTAB(12)"SCHMUCK'" 
SOZOFRINT"YOU LET THE CITY ВЕ DESTROYED!" 


9-ҒОЕ 
Full instructions аге included іп 
the text, but the idea 15 to de- 
fend a city at the bottom of the 
screen with three flying sau- 
cers. 


L. Alderton 
Dunnedoo 
NSW 
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10 REM#DISINTEGRATOR# А М=М-1:М= (52-М) Ж10:0=0+М 

20 МОРЕ (0) :CLS:COLOR,O 560 FORL=28864T029151 

30 POKE30862, 80: POKE30863, 52 670 POKEL, 52: МЕХТ 

40 GOSUB900 580 ІЕМ-ОТНЕМ700 

50 60508800 690 GOTO140 

100 'START FRAME 'END ROUND 

110 CLS:POKEZ0744,1:D-216:N-23:U-0 710 IFUS=T$THEN730 

120 FORL=29152T029183 720 ТЕУ=ТТНЕМТ$="А DRAW" 

130 POKEL, 255:NEXT 3 IFU>TTHENT= U:T$= us 

140 М=р+16:Р=0 PRINT39, 

150 PRINT930,"(. CHAMPE:"T$: PRINT317, "PLAYER: 745 РКІМТӘ9,Т%: PRINT38B, N 

160 PRINTO32, "HI SCORE: "T: PRINTƏ49, "СЗСОВЕЕ " 750 РКІМТӘ41,Т:РКІМТӘ56,0 

170 PRINT364, "(BOMBS "M: PRINT281 , "[ CRAF T]: 760 PRINT395, "« T» TRY AGAIN <N>NEW GAME <E>END" 

180 FORL-29121T029151STEP2 PRINT3170, X 

190 K=(RND(5)-1)%16+172 AS=INKEYS 

200 H-RND(7)XZ2: Р=Р+Н 775 AS=INKEY$! IFAS=""THEN770 

210 FORX=HTOOSTEP-32 780 ТЕА$="Т"ТНЕМ! СО 

220 POKEL-X,K 785 1ЕА%="М"ТНЕМ5О 

250 NEXT: NEXT 790 IFAS="E"THENCLS: END 

240 PRINTO139, "<S>=START" 795 GOTO770 

250 AS-INKEY$:AS-INKEYS$: IFAS< > "5" THEN250 800 INITIAL 

260 РБІМТӘ129," ": SOUNDZ1,1 810 CLS:POKEZO744,0 

270 1=28767:С=255,5:7=.5:В=2 830 PRINT"PLAYER, PLEASE INPUT YOUR МАМЕ" 

500 ”МОУЕ CRAFT 840 

310 AS=INKEYS 850 PRINT: INPUTUS 

520 POKEL, 32:L 2L «1: POKEL , C+Z 860 S-LEN(US) 

350 IFRND(10)55THENX-USR ( X) 870 IFS<10RS>7THEN840 

540 Z=-Z:FORI=OTOD%2: NEXT 880 RETURN 

350 IFB<2THEN370 900 ? INSTRUCT 

560 IFA$=" "АМОМ>ОТНЕМ4ОО | 905 CLS:PRINTTAB (8) ; "#OISINTEGRA TORE " 

370 В=В+1 910 PRINTTAB(7);"(BY ALAN STIBBARD)" 

390 IFPEEK(L+1)<>32THEN6OO 915 PRINT"YOU ARE IN A CRAFT WHICH HOVERS" 
5070510 920 PRINT"OVER TALL STRUCTURES. YOUR TASK" 

*DROP ВОМВ 925 PRINT"IS TO DESTROY THESE BY DROPPING" 

410 SOUND20, 1: M2M-1:F-L422: B=0 930 PRINT"BOMBS DOWN ON TO THEM BEFORE" 

420 PRINT373,M 935 PRINT"YOUR ALTITUDE GETS TOO LOW AND" 
IFPEEK (F+32) =255THENSOUND10, 1:POKEF,32:GOTO460 940 PRINT"YOU CRASH INTO ONE OF THEM." 

440 POKEF, 32: F=F+32! POKEF, 243 945 PRINT"THE GAME BECOME'S MORE DIFFICULT"; 

450 X-USR(X):GOTOA430 950 PRINT"AS YOU SUCCEED EACH FRAME. THE" 

460 FORY=29089T029119STEP2 955 PRINT"NUMBER OF BOMBS WILL DECREASE:;" 

470 ІҒРЕЕК (Ү) < >52ТНЕМ510 960 PRINT"AND THE SPEED OF THE CRAFT WILL" 

480 NEXT 965 PRINT" INCREASE.HIGHEST SCORER WINS!!. 
*COLLECT POINTS 970 PRINT"XBOMBS NOT DROPPED ARE A BONUS." 

510 SOUND21,1;21,1 975 PRINT"XTHE «SPACE» KEY DROPS THE BOMBS"; 
IFD>OTHEND=D-2 980 PRINT" [HIT RETURN KEY TO CONTINUED; :INPUTSS 
М=МХ (2000- (0ж100)) 985 RETURN 
IFD=OTHENM=5000 
U=U+M+P! POKEL, 32: GOTO140 262 5 К 
*WIPEOUT Disintegrator and comments are explained in 
SOUND15, 1 This game is run on the VZ- the program. 


: 5 Я à 
COCOR LEPORE SOZ TE O 200 or 300. All the instructions 


A. Stibbard 
FORI=1T050: NEXT: SOUNDS, 1 ; Stanmore NSW 
POKEZO744,1: COLOR, O 
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Star fighter : 
A game where you hit a UFO 
10 times under a time and am- 
munition limit . .. «— (M) (,) 
-> (Z) FIRE (Q) END (R) 
RERUN. GOOD LUCK! 
Murray Roberts 
Ettham 
Vic. 
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188 
110 
120 
138 
148 
159 
158 
120 
189 
130 
200 
219 
220 
239 
240 


258 
259 
129 
28ә 
230 
399 
312 
220 
338 
348 
359 
260 
320 
280 
338 
400 
410 
420 
430 
440 
450 
450 
478 
489 
439 
see 
sia 
528 
539 
543 
559 
589 
578 
580 
590 
698 
610 
620 
638 
549 
650 
659 
679 
680 
699 
788 
2:9 
229 
232 
242 
257 
26e 
2?0 
289 
238 
$090 
319 
920 
938 
840 
852 
860 
879 
880 
830 
заа 
310 
928 
938 
348 
350 
968 
978 
380 
990 


VZ 200/300 


REMARKABLE ELECTRONICS TCCAY PROGRAM BY n.ROBERTS 


I (932 433 2126 ...... 
гутзев OR уве 


CLS:PRINT" PROGRAM FROM FEEU FORWARO FROM "i 
PRINT°E LE CT RO DOS аббат“ 
PRINT@224, "NAME PLEAS 1: TSPUTNANES 
60508618 

ПМЕ 1:00 H<; :8S=40 CLS 

CLs 

E«0:0923169 :E=INTCRNOC29) 3 :Е=Е +28832 
РОКЕО, 30 :РОКЕЕ- 1, 35 :POKEE , 35 :POKEE +1, 35 
P#INT(RNO(39)) 

P1“IN[CRNOC(3Ə)1) 

P2#INTCRNOC 303) 


РЗ3-ІМІСЕМОС3233 


IFP) “РООЕР1 =PORP 1 *POORF2 *PORP3*PORP3*P2,210 
Р=Р+23038 1Р1 =РІ «23088:Р2еР2-23088:Р2-Р3»230288 
POKEP1, 125 :POKEP2, 125 :POKEP, 125 :РОКЕРЗ, 125 
В3«ІМкКЕҮЗ :B&e [INKE YS 

PRINTQ1O, "BULLETS ";BS 
IFB$«*,"ANOD423183,GOTO400 

IF BS="M"ANOOS 23152, 6070430 

IFB&«"2" ANDPEEK (0-643 <> 125, SOUND1Ə, 1 :60Т0460 
TIME=TIME +1 


IFTIME> 100,310 
PRINTà22, "TIME“ TINE 
ІЕВзе "0", ENO 
1Е83е"К”,6070120 
60518569 

65070280 

REM <- 


ТІПЕеТІЛЕ +1 1РОКЕО, 36 :60508569 :0=0*+: 1POKED, 30 :6010288 
6070288 

REM -> 

TIME=TIME +1 :РОКЕО, 96 :60548568 :0-=0-- | :POKED, 30:6070280 
6070280 

ТІПЕеТІПЕж1:Е-0:1Ғ85<1,920 

BS=BS-1:FORñ=1TO3 

R=R-32 :РОКЕК, 33:60508560 :M=0 :POKER, 96 :NEXT 
IFPEEK(R-32)=3S,H1#H1+1:PRINTQƏ,H1;" Н[Т" 36010519 
6910289 

5004031,1 ;20,1;18,1 


TFH1>=18, 828 
REM GOT BULLETS 
REA 

65070289 


POKEE-1, 38 :POKEE t1, 36 :POKEE , 96 : ІЕн=1 АМОЕ «28863, Е-Е +1 
IFH=2ANDE> 28832,£=E-1 
IFE*28862,H=#2 

IFE-28833,H«1 

POKEE +1, 35 :РОКЕЕ, 35 1RE TURN 
FORRe1TO40 iIPRINT” STAR FIGHTE 
500031,3 

CLS tFORA=1 T0400 NEXT 

PRINT" GREETINGS STAR FIGHTER" :FORA#] Т0888 NEXT 
PRINT" 
FORA«1TO80Q 1NEXT 


"PINEXT 


PRINT" TRY TO DESTROY ME, IF YOU САМ” ; :ҒОВА= 1 ТС:080 NEXT 
PRINT" PRESS" :FORA#1 T0330 :NEXT 

PRINT" М FOR <-" :FORA#! 1701009 :NEXT 

PRINT" , FOR -)" sFORA21 ТО1880 :МЕХТ 

PRINT” SPACE FOR FIRE" *FORA#1T01QQ0@ :NEXT 

PRINT" Q TO QUIT" :ҒОКА= 17019080 :МЕХТ 

PRINT" R TO RESTART” :FORR-1T01080 :NEXT 


Сее" АМҮ KEY" 

I RINT8448, LEFT$(C$, 312 5 :PRINTG458,LEFTSCCS, 213; 
PRINT8468,LEFT4(C93,312 ; :PRINTCHR$C28) ; iPRINT3428," 
FORR21TO30:83-2[NKEYS : [РАЗ 42" ",NEXTELSERE TURN 
Cs-nIO$CCS, 2) eLEFT3CC$, 1) 

6010758 

RETURN 

ñ3=<[NKEY3 :A32 INKEYS :IFñ3a="",819ECSERETURN 

CLS 

PRINT :PR INT :PRINT PRINT 
PRINT “W Е L L 
PRINT PRINT SPRINT 
PRINTIS T A R-F Ë 
PRINT :PRINT 


PRINT" "МАПЕ& 


PRINT :PRINT" ANT KEY FOR ANOTHE САПЕ" 
AS=INKEYS :AS=INKEYS :[F^32" ^, 388 

RUN 

cis 

PRINT SPRINT :PRINT:PRiNT 

PRINT"B A n “ u с к“; 
PRINT :PRINT :PRINT 

PRINT"S T BR. R СН T E RT 
PRINT :PRINT 

PRINT" "INANE S 


PRINT :РЕ ІМТ" ANY KEY FOR ANOTHER САЛЕ” 


1902 RS<[NKEYS :AS=[NKEYS: [FAS="", 900 
10:0 RUN 


1388... 


I AM YOUR ENEMY ";:FORRSITO689Q:NEXT :РЕІМТ"200" 


"s 
; 


Drawing board tions ore contoined in the 
This progrorn allows the user program. 

to create pictures in Mode < D. Маипдег 
1> with 8 different cursor Quirindi 
movements. All the instruc- NSW 


* THE БЕРМІМС BORED ' IS WRITTEN БҮ 

2 САТО MAUHOER, QUIRINDI.NSM 2343 
' AND IS FOR THE: “° 

^ у у 22222 #8 5553 

чү у 2 у 


уч 22 " 2253 


М 22222 $252 

“үг2-200 -30а,У2-300.У2-309 
© 2-200,V2-300, 2-200 
сз: 12051)811@@ 
PRIHTG2€,"THIS PROGRAM IS TO ORAH OBJECTS. "5 
12 PRINT"PICTURES OR ANYTHING YOU LIKE." 

13 PRINT"WHEM YOU! CRAM YC НАМЕ A CHOICE" 

14 PRINT"OF ТЫП CURSORS:1.THIM OR 2. THICK"; 

16 РРІНТ"СНАМСЕ THEM Бү FRESSING '1' OR " 

? PRIHT"'2'.Y0U ALSO HAVE Э DIFFERENT" 

18 PRINT"COLORS BY PRESSING 3,4,5,6.7.8,9"; 

19 РФІМТ",0 АНС ^ = ’. THERE ARE 2" 
29 PRINT“DIFFERENT CURSOR MOVEMENTS WHICH"; 
21 PRINT"WILL HELP YOU TO DESIGN YOUR" 
22 PRINT"PICTURE." 
43 PP IHTG452 "1442455980653 77 EIE CODO 000)" 

3 IS-IHNKE''S:USZINKETS 
45 IFUSS»" "THENGOTO44 
46 PRINT:PRINT:PRINT:FGCRIU-1TOZ20 
47 РЕ1НТ42 COMMANDS RKE:":FRINT8425, ЯН ТАРА 32B" : NEXTU 


e — О У ЛП h Oro S 


-G 


42 ЕОЕН-170250:МЕХТ 

43 LLS: PRINT" GATAN U I 0 aa: 4" 

50 PRINT” JK бе" 

51 PRINT" NM, д^ 

с> " " 

55 PRINT" ее. = RC. 
54 PRINT" 2,THICK LINE. 4. YELLOW" 


PRINT" пваа саня: 5.BLuE" 
‚ PRINT" = CLEARS SCREEN 6. RED" 
PRINT" В.РУТЗ CURSOR AT .El 

2 PRINT" STRRT POSITION . 
PRINT" C.TO COPY PICTURE 2. МАСЕМТЯ" 

PRINT" ONTO A PRINTER 9.Q0FRNGE" 

PRIHT" Q.TO QUIT (ENDS NORMALS 2.05"; 

64 PFIHTG452, айла шіл алт екн; 

5 ‘YS=INKEYS: PSSINKEYS 

IFFS¢>" "ТНЕНСОТОЕЯ 

CLS:PRINT"PZXJIF YOU WANT Я COPY OF THE " 

РЕІНТ"ЗСРЕЕМ ONTO A FRINTER PRESS 'C^,"; :РЕ [НТ 

ERINT CSE FN IF ҮП!) FORGET A COMMAND" 

PRINT"PRESS THE <SPACE> BAR AND YOU " 

РВІНТ"ИПЦИ, "GET THESE INSTRUCTIONS. id 

PRINT?O429."(IZ22 S И ыш! із О"; 

FS=INKEY'S : GS=INKEYS 

IFGS< >" "THENGOTO82 

МОСЕ 1 >: COLOR4, 1:FORR-OTO127 :SETCR, 9D: SETC RI. 15: ЗЕТСЯ, 62? 
ЗЕТ Я. EF): NEXT :РОРЯ=9Т0Е3 : ЗЕТСЯ. А>: ЗЕТА 1.2: ЗЕТ 126. 85 
ЗЕТ“ 127. A):NEXT 


Oy OY Cf ¿n cn ¿nan ct 
— Sub ON сыл 


m 
un 


IS-INKEYS: IS-INKETS:RS-INKEYS:FIS-INKEYS 
IFISC»""THENSZELSE?5 

IFRS="J" THENA=X-1 : GOSIIE 19990 
IFAS="K"THENA=X+1 :50516 1998 


181 IFR*$=";i4"THEH=Y+1 : GOSLIB 1000 

102 IFFs="I"THEHNY='-1:6G0SUES 1000 "v 2 - 
183 ТЕА$<>"А"ТНЕНООТО195ЕСЗЕН=1 : Х=Н-1:РЕЗЕТСХ, Y 2 RESE C1 02 
184 605181898 "BP 

105 IFRsC»" S" THENGOTO197ELSEH-1:XeX*1: RESET т > RESETCX-1: YO 
196 КЕМ SUP RE 
127 IFRSCP"Z'THENGOTOLG3ELSEHz1:Y2 Y «1: RESETCR Y) RESETCX, 7715 
199 60517610002 б 2. 

162 IFRSZ»"W'THEHGOTOLI1ELSEHz1: Y=1'-1 :ВЕЗЕТСХ, Y 2 RESETC X, 012 
119 US eye 


— ju) ur чура UD U 20) 00 00 X c6 0 Y V 0 
SOHO Fe CO ГО — VINK OO 00 aA 


э 


1:6031.81898 


112 -1: 603481908 
113 +1:605481898 
114 "T-1:GO0SUE10080 
115 С"ТНЕМСОРУ 

115 "ТНЕНМОСЕС A): GATOS 

117 &" THENGOTO34 

113 TFAS="1" THENA=1 :бОТО29а 

119 IFH$z"2"THEHH-2:6G010209 


IFAS="3"THENCOLORL «1 

IFAS="4"THENCOLOR2, 1 

IFAS="S"THENCOLOR?, 1 

IFA ci THENCOLOR4, 1 

IFAS="7"THENCOLORS: 1 

IFRSz"Z£"THEHCOLORÉ. 1 

26 IFRHs-"A"THENCOLOR2, 1 

IFRfisz"-" THENCOLOR 2, 9 

( [FRi$z":"THEHGOTOSO 

IFR$z"ü"THENNEH 

REM SETTING D. LINE CURSOR 
IFH=2THENSET Х+1, YJ: SETCA, Y 41 > ЗЕТ MHL Y*12 _ 
REM SETTING 5. % D. LINE CURSORS 
ЗЕТСХ, Y» 

507095 

REM RESETTING D.LIHES 

RESETCE. Y» 

GOTOSS 
A REM BOUNCER LINES 

ІЕХ-2ТНЕНХтА?1 

IFXz124THENA7X-1 

IFYz2THEH'Tz'/*1 

IFYZ61THENY-Y-1 

RETURN 

REM INTRO 

FRINTGG, ЖЖ MT AMET KEK" ; 
OMNS="& DAVID MANDER" + FORO=1TOLENC OMS > 
FRIHT&4O,LEFTSCOMS, D): НЕХТ 

RETURN 


m 


1 
1 
1 
1 
1 
1 
1 
1 


£N 
qm ous coms o 
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Camel 


Camel is o popular game that is 

played by many people. There 

are many versions of the game. 
This is one. Instructions to playare | 
included in the program. | 

D. Maunder, 

Quirindi, 

NSW. 


ETI May $09 
p 387-88. 
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VZ 200/300 


REM THERE ARE MAN’ DIFFERENT VERSIONS OF CAMEL FOR DIFFEFENT 
REM COMPUTERS. І НАМЕ CONVERTED CAMEL FOR THE У2-288 % 42-399 
REM ORIGINAL ICEA FROM HEATH USERS GROUP. 

REM ЖЖЖЖЖАЖЖЖЖЕЕЖХЖЖЖЖЖЖЖЕЖЖЖЖ 

REM CAMEL: OCCUPIES ABOUT EK 

REM ‘CAMEL’ CONVERTED AND REWRITTEN Еу D.MAUNDER  CCJOPYRIGHT 
REM 86/92/59 FOR THE 


7 REM V V V Ww (222222 0 4 
8REM 22V у 2; £22 
9 REM ! ! V V 2 ПЖ. 
@ yo М 2 259 

11 REM 20 Уу z йй 

au y 222222 9 в 
13 REM 2299/2398 COMPUTERS 
14 REM SCRE EEE 
15 GOSUB2Z14:PRINT" Е WELCOME TO CAMEL": REM INVERSE 
16 PRINT 
17 PRINT 
18 FRINT" E WOULD ҮС) LIKE INSTRUCTIONS?" 
FRINT" I т/м" 
Т$=1НКЕТ$ 
1ЕТФ="Н"ТНЕНСОТО ЗЕ, 
"ТНЕНСОТО25 
ІЕТФ<>"М"0ЕТ%<>"Ү"ТНЕМС0ОТ020 
GOTI23 
CLS: PRINT" С Я M E L":REM INVERSE" 
PRINT 
PRINT"THE OBJECT GF THE GAME IS ТО" 
РЕТНТ"ТЕАМЕС 200 KILOMETRES ACROSS THE"; 
PRINT"GREAT GOBI DESERT." ° 
PRINT"A TRIGE GF KNOCK KNEED DESERT PYGMIES WILL BE "; 
PRINT"CHASING YO." 
32 PRINT" YOU НАМЕ TWO LITRES OF WATER WHICH WILL LAST YOU "; 
33 PRINT"ZIX DRINKS" 
34 PRINT: PRINT 
35 INPUT" PRESS <RETURN> TO CONTIHUE";'/Z$:REM INVERSE 
6 РОКЕЗ0777,35:ҒОКЕ-17030 
6354, "#46006 LUCK AND GOOD CRHMELINGEX" 


тал £ O ta < 


2 € fO го PO Pe PO PO PO ГО ГО № = 
e S y 0) O СП EP CA f e Sh un 


e 


24,; 
ЮН К ЭМО СӨС) САМЕТ THO 


77.67:005118213:С13 

ZUE22398:PRINT 

43 PRIHT"'OU ARE IN THE МІСС_Е OF THE DESERT AT AN OASIS" 
44 GOSLIE213 

45 ІЕСХЕӨТНЕНІ41 

46 2-2-1 

47 IFZZI1THEHPRINT"-----IMüdiBfiU----- СЕТ Я DRINK" 

43 IFZ-aTHEH134 

43 F=P+1 

58 2-ЕМО< 18 >+2.5 

51 ТЕЯ>АТНЕН111 

52 ІЕР<4ТНЕМЕЙ 

53 D=D+.J 

54 IFO<CTHENS? 

SS FRIMT"THE PYGMIES HAVE CAPTURED YOI..." 

56 PRINT"CAMEL % PEOPLE SOUP 15 THEIR FAVOURITE DISH !!!" 
SF 5056219 

5070122 

PRINT"THE PIGMIES ARE"C-O"KILOMETRES БЕНІМС YÜOU.." 
PRINT" YOU НАМЕ TRAYELLED"C" 

PRINT"KILOMETRES 50 FAR..." 

PRINT: [НРУТ"ИНАТ IS YOUR СОММАНО?" AS 


Je Sw 


m алал с 


à РӘ 


63 

64 D"THENFRINT"ORINK FROM CANTEEN. " :С0Т0190 
65 ІЕНФ-"М"ТНЕМРЕІМТ"МООЕЕНТЕ SPEED AHEAD.” : GOTO?S 
66 IFAS="F"THENPRINT"FULL ЗРЕЕС RHERD.":GOTOZE 

67 IFAS="N"THENFRINT"NIGHT STOF.":GOTO34 

ЄЗ [FAS="S"THENPRINT"STATUS CHECK. " :С0Т097 

69 IFRS$z"H"THENFRINT"HOFE FOR HELP": GOTO73 

70 IFAS="“t" THENFRINT "COMMANDS" : GOSUBZ294 : СОТОБ2 

71 PRINT"INVRLID COMMAND. " 

тг 5050629@:50Тт062 

73 Т=ЕМС< 10 +1 

74 ІЕТ<2ТНЕМ142 

75 PRINT "HELP HAS FOUND үс! IM A STATE OF UNCONCIOUSNESS" 
76 3=3 

?7 2-4 

78 607045 

73 F=F+1 

£8 IFFZZTHEH12Z 


5028195 
І-ЕҢОС 18 2+1 

c=c+l 

PRINT"YOUR CAMEL LIKES THIS PACE." 

607045 

F=F+2 

ІЕЕ>?ТНЕМ138 | 
5036195 

1=2ЖЕМОС 18 2+1 | 
С=С+1 
-FRÍNI"TOUR CAMEL IS BURNING ACROSS THEDESERT SANDS. ." 
PRINT : 
507045 | 
PRINTYOUR CAMEL THANKS YOU!!!" 
Е=й | 
607045 | 
PRINT"YOUR CAMEL HRE"7-F"GO0D DAYS LEFT FOR TRAVELLING." | 
ЭЗ PRINT"TOU HRVE"S"DRIMKS LEFT IN YOUR CANTEEN" | 
93 PRINT"TOU CAN GO"Z"COMMAND'S WITHOUT “ DRINKING.." 

5-5-1 

ІЕЗ<2ТНЕМ149 | 
2 PRINT"YOU HAD GETTER WATCH OUT FOR AN OASIS." 

; 2-4 
GOTOEZ | 
Я=ЕМОС 20) | 
5 IFR>3THEH131 
PRINT"WILO BERGERS НЕЕ HIDDEN IN THE SAND HAVE 


CAPTURED ҮП" 


ж 
- 


қо On > CO fO 


WWD Ve 4D чучо 00 да о) Q) e о QQ Q 


T4 C КҮ 


108 PRINT"LUCKILY THE LOCAL SHEIK HAS AGREED TO THEIR " 
189 РЕТНТ"СЕМЯНО$ ....& ELIT... WATCH GUT. FOR THE FYGMIES!!!.. 
116 PRINT" YOU HAVE A NEW CHOICE OF SUE- COMMANDS : " 

111 FRINT"KEY DESCRIPTION" 

112 РЕТНТ" E RTTEMFT RH EZCRFE." 

553 РАНЕ W : WAIT FOR PAYMENT." 


114 INPUT" YOUR zilE-COMMRHO 27":ЕФ 

115 IFES-"E"THENFEINT"ESCRFE.":GOTO1198 

116 ІҒЕФ-"М"ТНЕМРЕІМТ"ЫНІТ FOR FRYMENT.":GOTO126 

117 5070114 

118 I=FHD“ 102%1 

119 IFI<STHEH123 

120 PRINT"CONGRATULATIONS, YOU SUCCESS- FULLY ESCRFED!!" 
121 Q=6 

122 607045 

123 FRINT"YÜOU МЕКЕ MORTALLY HOLINDED EY A РІС STREEER WHILE” 


PRINT"ESCAPING.." 
125 6070166 
T=RNDC 102 
IFI?2STHEN148 
FRINT"YüLIR RANSOM HAS EEEH FAIC AHD 
РЕІМТ"ТНЕ LOCAL SULTAN IS COLLECTING.. JIST WAIT...." 
501042 
A=RNDC 18 +1 
IFA>4THEN1 42 
PRINT" YOU HAVE ARRIVED RT AN OASIS. s.. YOUR CAMEL IS "; 
PRINT"FILLING YOUR CANTEEN AND EATING FIGS" 
2-4 
5-6 
RETURN 
PRINT" YOU DIRTY РАРУСЯССТОМ! 170 ЕАН 
FRINT" CEATH! ! " 
5070166 
PRINT "ЖЖЖ ЖҰЖ ЖҰЖ АХЖ АЖЖ АЖЖ; 
FRIHT"xYOL МІН,Н PARTY IS BEING СІУЕМЖ"; 
FRIHT"XIN ‘YOUR HONOR. ....THE PYGMIES x"; 
PRINT"XRKE PLANNING Tü АТТЕНО...... Жж"; 
t 4 4 55554 x мааа 
Ø, 2:NEXTT 


TOUR FOOR CAMEL TO"; 


& ҒОКТ-1Т06 
GüTOl128 
I=RND¢ 10) 

IFI>STHEN1E@ 

PRINT" УС НАТЕ BEEN CAUGHT IN A SAND- 
MERNEK 1928241 

М-ЕМСГ 16241 

ІЕНМ<5ТНЕН156 

c=c+n 

5070157 

С-С-М 

FEIHT"'/OLIE. МЕМ POSITION IS"C"EILOMETRES SO FFF! I!" 
РЕ1НТ“ТНЕ FYGMIES ARE"C-D"KILOMETRES BEHIND ҮІ)" 
RETURN 

IZEN 10> 

161 IFIZSTHENKETUEH 

2 D=D+1 

163 FRINT"YOUR CAMEL HIRT HIS 
FRINT"LUCKILY THE PYGMIES 
RETURN 

LI-EHDC S > 

PRINT "ЖЖЖЖ СОЖА ЖЖЖЖ"; 
FRINT": ІН THE DESERT ЖЖЖ"; 
3 PRINT ы ЖУКАЛЫК”; 
GOSUEZ Ia 

IFU=1THENGOTO176 

IFU=ZTHENGOTOITS 

ІҒШ-2ТНЕНСОТ017Э 

IFUSSTHENGOTOLE1 

IFU=4THENGOTO1S4 

IFU-STHENGÜOTO12? 

FRIHT"THE NATICNAL CAMELS NION IZN'T" 
FRIHMT"COMIHG TO YOUR FLUHERRL" 

5070122 

FRINT'YOUR EDDY WAS EATEN EY VULTURES & 
5070182 

PRINT" THE SEE E SHEIK HOW USES ТШЕ 


SOUNDS, 2 


НОМЕ. " 


WERE FOOT- WEARY!!!" 


SKILL AS A CHANGE" 
3 50710182. 

PRINT"FEGFLE WITH LITTLE INTELLIGENCE 
РЕТНТ"ТНЕ DESERT." 


SHOULD STAY QUT OF" 


es 
126 GOTO1LES 

187 PRINT" TURKEYS SHOULO FLY, HOT КІСЕ CAMELS!!!" 
182 PRINT: PRINT 

189 FRINT"WANT A НЕМ CAMEL ЯНО Я НЕМ САМЕ" : Я$=1НКЕ\$ 


120 AS=INKETS 


191 IFAS="N"THENGOTO156 
192 IFAS="¥"THENGOTOSS 
133 GüTO126 
134 FEIHT"YOU RAM OUT OF HATER... . SORRY сн!!!" 
195 G 
196 
197 
125 Р 
199 ҒОЕН- 11020 
270 PEINT" COMMRHDS " : "НЕМ INVERSE 
201 ЕРІМТ"КЕТ DESCRIPTIONS" 4 
‚иг РЕІМТ" D DF:IHK FROM ҮСІПЕ CRHTEEH" 


YOU ARE FREE TO GO,." 


: PRINT" 
FRINT" 
FRINT" 
‚ PRINT" š 
FRIHT" 
е РКІМТ" 
2 КЕТМЕМ 
FORT= VM SOLIND: 1 


AHEAD FULL 2РЕЕО" 
AHEAD MODERATE SPEED" 
ETOF FOR MIGHT" 
STATUS CHECK" 

: HOPE FOR HELF" 

' LIST OF COMMANDE" 


2: SOUND, 2: SOUND. 2: NEXT T 


=0:Р=0: б=0 : RETURN 
. 67 CLS COLORS 


<: PRINTS a. 

FORE=2 32704485ТЕР32 
а FRINTíE:," 
РЕІМТФБФ21, 
NEATE 


ТЕР 


223 RETURN — 226 


STOFM....GOCD LUCKII" 


2 of 2 


IMPORTED CAMNIBALS" 


ETI MAY '89 


88 


Aug. 
Oct, 
Que. 
ОСЕ. 
рес. 


Мау 


gül. 
Feb. 


BUSINESS 
84 АРС 
84 АРС 
85 АРС 
84 АРС 
84 АРС 
85 АРС 
85 APC 
88 ETI 


ЕЕ 
214 

a 23 
126-210 
214 
бұй = 3 
164-6 
T2 


Database У2-200. (Barker) 

WP for У2-200. (McQuillan) 

Comment on Barker's апа Quinn's DB. 
Minicalc Spreadsheet. (Stamboulidas) 
Correction Eo Minicale. 

Micro Type(WP). (Browell) 

Database. (Quinn) 

VZ Wordprocessor. (Tunny) 
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This is ап information storage апа 
retrieval program for the VZ-200 with 
16k expansion used in conjunction with 
a suitable cassette recorder and 80 
column printer. The program has been 
adapted from one written for the Com- 
modore VIC 20/64 by John Stilwell of 
Madison, WI, USA which was published 
in the February, 1984 issue of the 
magazine RUN. 

When you run the program you will be 
asked to enter a file name, [RETURN] 
Without entering a file name will result in 
a default to the file title ‘NO NAME’. 


wish to file and press [RETURN] once 
more; your entry will then be confirmed 
on screen. ‘I’ (Insert) follows the same 
procedure as Enter. When you enter the 
desired information, it will be entered at 
the designated line number. All lines with a 
higher number will be incremented by 
one and no information will be lost. 'N' 
(New File Name) will ask 'Are you sure?'. 
Entering a new file name will result in the 
loss of any information stored in the 
current file. 'S' (Save to Tape) will ask 
"Are you sure?'. If your answer is “Y just 
follow the screen prompts. As each entry 
is saved ontotape, its line number will be 
displayed at lower left screen. This ser- 
ves as a check that the saving process is 
working OK. The word ‘COMPLETE’ will 
appear when all of your file is saved to 
tape. 

"L' (Load From Tape) will again ask for 
confirmation. Load is similar in operation 
to Save except that you will be asked to 
enter a file name. During loading, the 
word 'WAITING' will appear as usual. 
This will be followed by the word 
“FOUND”. The word ‘LOADING’ does not 
appear. As each item is loaded its line 
number will be displayed at lower left 
screen as a check that the loading pro- 
cedure is going according to plan. 

“H° (Hard Copy) will allow you to pro- 


Database VZ-200 


by Ted Barker 


Some three seconds later a list of one- 
letter commands will be displayed. [M] 
will display a full menu, detailing the 
meanings of the one-letter commands. 
(Menu may be called at any time without 
affecting file entries). 

Information is entered into pages, [P], 
each of which holds 10 line numbers. 
[Е]. The total amount of information 
which may be filed is determined by the 
value of 'N' (number of lines) in Line 
140. In the listing 'N' has a value of 400 
which should allow up to 32 characters 
of entry per line. 


duce a print-out of your file. The file name 
will be enhanced, followed by the 


remainder of your file in unenhanced 


type. You will have the option of printing 


` the entire file or of specifying а sang 


and ending line number. 

‘D’ (Delete) follows the same pro- 
cedure as Enter and Insert. A line num- 
ber entered after the “Ы” command will 
result in that line being deleted from the 
file. Higher line numbers will be 
decreased by one, leaving no gaps in 
your file. No information will be lost, 
except for the line you deleted. 'A' 
(Alphabetize) allows entries to be placed 
in order after they have been entered. 
You may place the entire file in alphabeti- 
cal order, or specify starting and ending 
line numbers. (Note remarks in Using 
The Catalogue.) 'M' (Menu) displays 
menu on screen in case you forget what 
the single letter commands mean. 


Using the catalogue 


If you wish to split your files into separate 
categories you may display category 
headings in the file catalogue. To do this, 
the entry is made in the usual way but 
with an inverse 'C' preceding the entry. 
Line 170 in the program reads this 
character, ASC(195), and places those 


А. 


(ge up dated Vv ioa, 


——_ 


Commands 


“С (Catalogue) will display the file name 
‘together with any lines you have 
designated as catalogue entries. (See 
Using The Catalogue). ‘P’ (Page), will ask 
you to enter a page number, (1 to 40 in 
the program listed). Enter a page number 
and press [RETURN] and the page, 
together with 10 lines will be displayed, 
ready for reading or making an entry. 'E' 
(Entry) asks for a line number; enter the 
required line number апа press 
[RETURN]; enter the information you 


entries in the catalogue, together with 
the page number on which they 
appear. 

As these entries still appear in their 

` correct position in the body of the file, it 
may be an advantage to enter the whole 
of that entry in inverse print, thus making 
the category headings stand out when 
going through the file. When using the 
Alphabetize routine on a file containing 
inverse 'C' entries, it is essential that the 
line number after the inverse 'C' entry is 
used as a starting line and that the end- 
ing number should not be greater than 
the entry containing the next inverse С”. 
If this rule is not observed the inverse'C' 
entries will be alphabetized with the rest 
of the file, thus destroying its usefulness 
as a category heading. 

If you enter a command letter by mis- 
take, just enter another command 
instead of a line number. Omit all line 
numbers below 100 as this will allow а 
little more memory available for your 
database. i 

When you have completed all your 
entries, make one more entry on the next 
line. This entry should be’END’. If you do 
this the alphabetize and catalogue 

routines will run much more quickly. 


PC. Avy 24- Vs(3) 
р 172-179 
poet 6. 


Арс. Suir) 


“РЕІНТЕ 4, "т, акысы 


а ии я 
u"a u' a m" lt 


ú m 
iv ж 


3 CLS: COLORS 
4 РЕТНТІ 25 
= РКІНТЕ 


» ii 


Я PE ІН ҮТ@1 ES." “waa a ича" 

a ЕЕ I HT [2 1 se Тан "^ Pa" n n a ui a gs! 

ій PF T F Tt ГА = ‚ u..." шн, М, m тшш т! 

11 PRIHTU еу "a "u Ss "x "e = 

1 z F n 1 HT ! Іш s A "a" a" a" nhu "n a ar) ы! 

1 3 РЕ І HI ed : uy) "a "a "a w" 

1 4 F E І ть: е и ыыт, msm тн; BAM Mar al o ша 
2. AM DEUM. 


me 
wih 


МЕЗЕТ 

Татан ТТТ 
+ DATA ЕНСЕ Vz-zügBb + 
ИКЕ ttt ttt ttt ptt et 


see qu 


RED ER Rb b e 
ТЕС 4 


! НЕРІ ЕТ. ; 
h dp о eee реч И 
SPR IHS. "Se Е им 
інте "ТҮНГЕ PROGRAMME HILL C 
STEMS ШЕ ІМЕПЕНМЕТІПН 


PERC Avg 54 V (9) 
Р 192-179 
Babe 


Many thanks to you and to 
Ted Barker with his VZ-200 
Database. It's nice to know 
somebody remembers the 
little people. As Dick Smith 
continually sprooks. there 
have been 'over 25,000 sold', 
and that's 25.000 people out 
there with no usable software 
to speak of. 
Does anybody know of a 
suitable word-processor type 
program for the VZ-200? I ñ РС s Gio) Oct, 84 P 214, 
can't find one! 
Again, many thanks, and 
keep up the good work. 


Ben McQuillan 
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2. "ОЕ ОМЕЕМЕТТЕ ІНЕОЕМАТІСН- " 
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an GOSUE 4e: ТЕ Abe" THER GOTO O0 
31а IF Ag="C" THEM GOTO 156 

эрй ТЕ Нфе"Ре THEN GOTO 348 

IF ABS"E" THEN GOTO 418 

IF В®="1" THEN GOTI 440 
AS="H" THEN GOTO Sau 
Ag="S" THEN GOTO бай 
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В IF AS="L" ТНЕН GOTO ü ө 
я IF AS="H" THEH GOTO 5 


aw 
ө 


53 pa Га Га 


zu CO g 
TJ 7 A 0 


ей са 


а IF A$=" O" THEN GoTo 5 

ий IF in "R" THEH GOTO B 4 
318 IF ="М" THEH GOTO Sea | 
3 IF Pi .H*1 THEH Е=.1:50Т0 166 Joj 
3 GOTO 154 s | 
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419 H$-z"-1":FRIHTIZS4."EHTER "R$;:IHPLT F$: JEYALS AH à 
Чая GOSUB See:IF At 58 THEM GOTO 218 ° 
$36 IHFLT $$ 5: UTU 358 ° 
448 НФ-“-1"-РБІНТІРШЕ4, "ТНЕЕЕТ "R$; INPUT A$: 1=УА ASI 4 Л 
аси GOSUE SaB: IF А: THEM GOTO 218 le 
466 INPUT D$: COS: IF EzH THEM GOTO тшй 
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B26 Gusg 234: GITO 216 
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НЕХТ I:IF Kz1 THEH GOTO 

НН=КЕ 

[=й 

J=: IF IsHH-l) THEN GOTO 9 

IF JsHH~I THEN GOTO See 

IF 256.152286. ^15» THEM ТРф=5$ 100585 dense edo See +1 TFE 
Je: ‘GOTO 5 
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к= INKETS: A= IHKEYS: IF A$="" THEM ЖЕТЕ SSD 
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FEIHTi?45&, ; I:RETLFEH 
PRIHT@IS1. "ARE YOU SURE. С ГУН?" 
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ЕРАТНТЕ$+" "+GS+AS+FS. CHES! 14 5:LL=LL+4 

IF LL?5 THEH FOR HL =LL TO ?Z:LFRIHTCHES$5C 1582:HEXST:LFRIHT"" 
LL=3:HEXT:G0TO 156 

FOR =й TO WM: See 29="-": НЕХТ: RETURM 

PRIHT#ISS. "STARTING "ЕФ; :ТНРУТ AS: RETURH р 

FOR І-М TO ü ZTEF-1:IF 5% ІО<9"-" THEM КК=1:1=й:ПОТП 115 
КЕ=1 

НЕХТ : RETLIEH 

FOR 1=.1+1 TO H:IF Sẹ Г2="-" THEH KKeZI:IzH:GOTO 1158 
ЕЕ-і 

HET : RETUEH 

CLS: РЕІНТО1 6. " Tes BRI" 

FOR I=H ТП B STEF-1:FE=I:IF Set lx e"-" THEN I=B 

НЕХТ I: K=K+1 

PRIHT42'"VZ-DRHTR"LE 

Fok [=й TO Е 

FRIHT&"DRTR", 5ф I 

БОЗИЕ 314 

НЕФТ 

ГІ 5 :РЕІНТЕ1 24. "Шала СР" 

FRIHTEZED. "FRESS <F> FOR FILE." 

ES=THEEYS 

IS=INKEYS: IF 1%="" THEN GOTO 1zBE 

IF I$="F" THEM GOTO 358 

CLS 

FRFIHTEISE. " Ватт в СІНЕН" 

ІНРІТ VE-DATA" , Е 

FOR Ісі TOK 

ТНРИТ#" DATA", Ste I 3 


I a АЛТАУ 
1a ina mi 


e 


mcm m m: 


J Oi cn B er Pa e m un c oJ s ed fs 


ems 
c vg 


m ama кл amu ce =. 
CO 7J Cc Һа Pà m Xr 


дылы e m E we te 
шыра n am m Cmn (Ee (i (Sh i Жыл i Шыл] 


m Um s v 


= 
a. 


f А — — oce b —— — dquipiuuu үлүү A AD gases oon eo rO 


= ISI 
Cn cu Га m rm un 


= 
ыш 


талыта! 


i = 
кау, 


1 
1 
A 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


d cn orm — iS Li Ty 


à P fa МАКРО ES — на — нана нара — 
E (S m mmi (Q 1 


кы 
EX 


m cn fe à hà u uu 
Fm m amm А) 


Y C3 063 00 Dd C0 3 {эЛ 


T, 
a. 


Page 176 Australian Personal Computer Vs (t) Е Avg $4 | 5 əf ¿ | 


GOSUB 918 
НЕХТ 
CLS: PRINT@194. "GN" 
PRINT@26@."FRESS <F> FOR FILE." 
КФЕТНКЕУ $. 
IS-IHKEY$:IF 1$="" THEN GOTO 1424 
IF 1$="F" THEN GOTO 336 
A РКІНТІ?166, "STARTING "FSi: IMFUT AS 
РАТНТЕЗ а, "ENDING "R$; :ТНРУТ ЕФ 
A W=VALCAS >: KK=VALC Bs» 
= FÜüRISKKTOGSTEF-1:IFSSCIo2"-"THEHKKZI:Iz8:GOTO 1527 
5 КЕ=1 
HET 
A К=й:КОК Ізі) TO KK 
A HH=I-1 : I=KK 
МЕТ I:IF К=1 THEN GOTO 1570 
и НН=КК 
a 1=й 
А J-U:IF Т=НН-У THEN GOTO 358 
ТЕ Ј=НН-І THEN GOTO 1620 
IF $$6.1525$C.1*15» THEN TP$-z$6.15: 2&5 1о0-5%6.1%12:2%6.151о-ТРФ 
J=1+1:GOTO 1530 
I=I+1:GOTO 1536 
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Self 
assessment 


| expect that Ted Barker 


| would like to suggest 
that users of published pro- 
grams voluntarily contribute 
to the authors a sum based 


АРС would have been pleased on whatever the program is 
with R Quinn's comments worth to them. | think this - 
Oct 85 бе) about the У2-200 database would be an incentive to 
р 32-83. (АРС July 85) unkind as produce better programs. 


they may have been, on the 
premise that any comment is 
better than none. The main 
reason for submitting pro- 
grams for publication must 
be the hope of getting 

some feedback, which 
would suggest improve- 
ments. Expectation of 
financial gain must rate 

very low: if and when the 
publication fee is received, 
generally many months after 
submission, it does not 
cover much more than the 
actual cost of preparing the 
program for submission. 


As an example, | would 
gladly send $5 to J Coyne 
(Amstrad See PC, APC 


June); | would value it at. 
$10 if it had been renum- 
bered, if | had not had to re- 
write his machine language 
to make it relocatable (to 
allow for merging), and to 
provide an optional output to 
printer. 

І hope that you will 
publish this suggestion and 
any readers’ reactions to it. 
P Lukes 


Comments please — Ed 


Міпісаіс is а spreadsheet program 
requiring a 24k VZ-200 system and an 
optional 80-column printer. It is based 
onaprogram written by Barry Spencerin 
the April 1984 issue of Rainbow 
magazine. 
It features the following facilities: 
— 9 x 43 cells on the spreadsheet 
-- tape storage and retrieval of data 
and functions 
— dump to a printer 
— column and row addition functions 
as well as +, —, *, Z, Ж, absolute апа 
integer functions 
— non-destructive function view com- 
mand to display formulae assigned 
to any cell 
After you RUN the program, you will 
be greeted by the title screen and asked 
whether you require instructions. Hitting 
the ‘Y key will display the commands 
available and the syntax required to 
implement them. Note that when enter- 
‚ ing formulae for the cell functions, it is 
often necessary to use commas (such as 
when specifying cells). Unfortunately, 
the INPUT statement in Basic will not 
accept characters entered after a comma 
unless the entire input is enclosed in 
quotation marks. The result otherwise is 
ап ? extra ignored’ error message. 
Hitting ‘Y will enter the spreadsheet 


10? 
2? 


----MINICALC---- 
REQUIRES 24K SYSTEM 


Minicale Spreadsheet 
by Chris Stambovlidis 


proper and the upper left section will be 

displayed (there are 16 overlapping sec- 

tions in all). The ‘>’ prompt means that 
you may now enter a command. 

To enter data, simply type Gx, y and hit 

. (RETURN); x and y specify а cell .x 
positions across and y positions down; 
this can be thought of as a GOTO com- 
mand. When the 'G' cursor appears in 
the specified cell, you may enter num- 
bers of strings up to 8 characters in 
length. From here, you may use the cur- 
sor control keys to move around the dis- 
played section of the spreadsheet, 
entering data as you go. To get back to 
the command mode, simply hit 

(RETURN). 

To enter formulae, use Fx y where x 
and y specify the cell in which the result 
will be displayed. An 'F' cursor will 
appear in the cell specified and you will 
be prompted to type in the function into 
the two: upper-most screen lines. 
Remember to use quote marks here, and 
hit (RETURN) when finished. 

The four pre-set functions are: 

— Ca,b gives the sum of the values 
appearing in the column from row 
atorow b 

— Ra,b does the same іп a row from 
column a to column b 

— “А at the beginning or end of a for- 


576784 


mula takes the absolute value of 
the result 

— ‘I’ at the beginning or end takes the 
integer value of the result. When 
specifying cells, use square 

` brackets 

eg, [3,13]. 

To view a function in a particular cell, 
use Vx y, hitting (RETURN) to get back to 
the command mode. 

Movement from section to section 
within the spreadsheet is via the MU, 
MD, ML, MR commands (move up, 
down, left & right). MH returns you tothe 
upper leftmost section. 

S and L are used for saving and loading 
from tape, and P enters the print 
mode. 

U will update the entire spreadsheet, 
ie, all formulae will be calculated and the 
results displayed. Note that calculations 
occur from top to bottom, so that if a for- 
mula refers to a cell below it, you must 
update twice. 

Finally, when typing in the program, 
the following characters should be 
entered in inverse text: 


line 180 ; "?" Сия%(%5%7 
line 450; "6" <»44(144) 
line 510 ; “F” cand ( 148) 
sa «з» АРС sh): 214. 
Сок кес row 4 


15 CLS:PRINTe200,"M I NICAL с" 
20 CLEAR7@00 :DINL$(9;43),U040), 1%(9,43) 
"SNEXT:SIS-LEFTS(C 


30 FORI*=1T032:S$=S$+" 
$$,30) :S2$-LEFTS$CS$,23) 
28 PRINT8489, "INSTRUCTIONS?" ; 

72 WS=INKEY$ : IFWS=""THEN?2 

24 IFWS="Y" THENGOSUB2@Q@ELSE IFWS="N"THEN 
З0Е( 5Е22 

80 CLS 

100 FORT*=28736T028767 :РОКЕТХ, 32 : МЕХТ:РО 
KE28749, 58 :POKE28759, 51 

105. POKE28739; 49:PRINT836,; "" ; 

110 FORT*=1T012:PRINTRIGHT$(STRS$(T%),2): 
NEXT SPRIBMIT13"3 

130 ҒОКТх=2826970291545ТЕРЗ2 :Р=РЕЕКСТХ) : 
ІЕР>ӨЗТНЕМРОКЕТх, Р-64 

135 МЕХТ 

140 ЕОЕТ2-28268Т0291535ТЕРЗ2:Р-РЕЕКСТХ9: 
IFP>63THENPOKET%,P-64 


VS (10) 
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150 NEXT :XS=@:YS=@ 

120 PRINT@@,S1$;5 

175 PRINT@Q@, ">" :PRINT:P=2:ñ$="":C$="" :PR 
INTGP,"";:68$-INKEY$ 

180 AS=INKEY$ :BS=INKEY$: IFAS="" THENPRINT 
@P,"?"5:GOTO18a 

185 ІҒА%-ВФТНЕМ180 

190 PRINTGP," ";:ІҒА%-СНР%С132ТНЕМ230 
200 IFAS$-CHR$C8)RNDLENCCS$J» QTHENP-P-1 :C$ 
=LEFT$(C$,P-2) :GOTO180 

210 С$=С$+А$ 

220 РВІМТӨР,А%;:Р-Рғ1:65070180 

230 L$-LEFT$CC$,; 1) 

240 IFL$="G"THENF *=@ :GOTO33@ 

250 IFL$="F"THENF%=1 :GOTO33@ 

260 IFL$="U"THENF%=2 :GOTO33@ 

220 IFL$="U"THENS49 

280 IFL$-2"S"THENS20 

290 IFLS$-"L"THEN1060 

300 IFL$-"M'THENI11280 

310 IFL$-"P'"GOSUB1320 

315 IFL$-"Q"THEN2200 

320 GOTO120 

330 L$z"":FORTXx-2TOLENCC$) :M$-MIDS$CCS$, Tz 
; 12: IFM$-2","THEN360 

340 | $=| $+[1$ 

350 NEXT:GOTO120 

360 L$=RIGHT$(L$,1J):X=UñL(L$)-XS:IFX+XS> 
STHEN120 

320 L$=RIGHT$(C$,LENCC$)-T%) 

380 Y-sUABL(L$)-YS:IFY? 14THEN120 

390 IFFzxz<>2THEN430 

400 IFLENCISCX*XS, Y*YS))-O0THENI12OELSEII1- 
1 

410 PRINT832,S$; :PRINT832,MID$SCIS$CX*XS, Y 
tYSJ;,1t32X*(11-125 3293 

420 I1$-INKEY$:GS$-INKEYS$:IFI1$-2""THEN420 
422 IFI1$-G$THEN420 

424 РВІМТӨЗ2,51%; | 
425 IFLENCI$CX+XS, Y+YS))>32kKI1THENI1=I1+ 
1:GOTO410ELSE120 

430 IFX<10RX>30RY<10RY>13THEN17@ELSEPRIN 
T@32,S$;5 

440 Р-ҮЖ32%ХЖ10%52:РБІМТӨР," (sP) 
L$CX+XS,Y+YS)="" 

445 IFFX-1THENGOSUBS10:GOTO120 

450 R$-INKEYS$:B$-INKEY$:IFA$-2""THENPRINT 
@P,"G"3:GOTO45a 

455 ІҒА%-В%ТНЕМ450 
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460 PRINTSP," "3 

465 IFAS=CHR$C 13) THENSG@ELSE IFAS=CHR$( 10 
2ТНЕМҮ-Ү%1:05070430 

466 ГЕА$=СНК$(8)ТНЕМХ=Х-1 : 60704360 

420 IFR$-CHR$C22)THENY-Y-1:6G0T0430 

425 ІҒА%-СНК%(92ТНЕМХ-Х%1:05070430 

480 IFAS$-CHR$C8)RNDLENCLSCX*XS, YtYS))» 0T 
НЕМР-Р-1:50Т0485Е1(5Е490 . 

485 L$CX*XS,Y*tYS)-LEFTSCLSCX*XS, Yt YS),LE 
NCLSCX*XS, Y+YS))-1) 

486 GOTO450 

490 L$(X*XS,Y*tYS)-L$ X*XS, Yt YS) +Я$ :PRINT 
eP, A$; :Р=Р+1 

495 ІЕР<5511ТНЕМ450 

500 6070120 

510 PRINT@P,"F";:PRINT@0,  I$(X+XS,Y+YS) 
530 PRINT90,S1$:PRINTG0, "" 5 : INPUTI$:GOSU 
B1150:0=0 

535 I$(X+XS,Y+YS)=I$:Xñ=x+XS:Yñ=Y+YS 

540 O=0:U(0)=0:FORTz=1TOLEN(I$):T$=RID$( 
I$, TX,1) 

560 IFM$2"["THENX$-2"":Y$z"":GOTO880 

520 IFM$-2"«"THENX$z'":Y$z"" :G0TO1118 

580 IFM$-"R'"THEN250 

590 1ЕМ$="С"ТНЕМЯ58 

600 NEXT :1х=0 :Ј=0(0) :0=1 :ҒОКТХ= 1ТОГЕМСІФ 
J:M$-MIDS$CIS$,; ТХ, 1) 

630 IFN$="k" THENU=UXU (C0) :GOTO930 

640 IFN$="+" THENU=U+U(O) :GOTOS3O 

650 IFI$2"^/"THENUZU^ZUCO) :GOTOS3O 

660 IFM$-"-"THENU-ZU-UCO) :GOTOS30 

620 IFM$-"I"THENIXx-Ix*1 

680 IFH$="ñ"THENIz=Iz+2 

690 IFM$-2"^"THENUZU^UCO) :GOTOS30 

208 NEXT 

210 IFI*=1THENV=INTCU) 

720 IFIX-2THENU-8RBSCU) 

730 IFIX-3THENU-INTCABSCUJ) 

240 GOTOS60 

250 FORT4X-2TOLENCIS$):IFMIDSCIS,Tz,1)-2"," 
THEN26SELSE720 

265 T1$-MID$CIS$,2, TX-2):LL-LENCIS$)2-T4:T2 
$-MIDS$CIS$,;TX*1;LL) 

266 GOTO280 

270 NEXT 

280 V=@0:IFN$="C" THEN830 

800 FORT*=VALCT1$) TOVALCT2$) :UZU*URL (L $ ( 
ТЕ, ТЯ) 2 :МЕХТ :GOTO860 

830 FORTX=VALCT1$) TOVALCT2$) :UZU*URL CLSC 
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ХА, T)):NEXT 

860 PRINTGP-1," (357) " 3:PRINTGP,U;:L$ 
(ХА, YA) -STR$CU) 

865 IFLEFT$(L$(XA, ТАЈ, 122" "THENB66ELSE8 
20 

866 ($ (ХА, ТА) =Ю 16НТ$ (1$ (ХА, ТАЈ, LENCL$CXA 
; YR32-12 

820 RETURN Е 

880 Тх=Тх+1 :1%=МІОФСІФ, Tz, 12 :IFM$=", "THE 
м9ве 

890 Х%-Х%%М%:6070880 

900 Tz=Tz+1:H$=HID$CI$,Tz,1):IFH$="J"UTHE 
N920 

910 Ү%-Ү%-М%:5070900 

920 X1-UALCX$) : Y 1-UALCY$ ) :UCO)-UAL CL$CXI 
, Y122:020*1:GOTO600 

930 0=0+1 :МЕХТ :GOTO170 

940 FORYz-1T043:FORXz-1TOS: IFISCXx, x)=" 
"ТНЕМ960 

950 I$=I$(Xz,Yz):X$="":Y$="" :ХА=ХХ:ҮА=ҮХ 
:60508540 

960 NEXT :NEXT :GOSUB124@ :FORO-S8TO480STEP 
32 :PRINT@O;S1$ 3 :NEXT | 
962 PRINT@482, S2$ ; :POKE29183, 32 

964 FORXx-1TO3:FORYx-1TO13:PRINTGYzx32«4X 
хж10+57, 1$ CXx*XS,Yx*YS); 

966 NEXT :NEXT:GOTO170 

920 INPUT"HIT «RETURN» TO SAUE" ;NAS 

980 FORTz-1T0S9:FORYz-1T043:PRINT&"MIN",L 
$( TX, Ух), ISCTx, YX) : NEXT 

990 NEXT :GOTO17@ 

1860 INPUT"HIT «RETURN» TO LOAD" ;TAS 
1220 FORTx-1TOS:FORYx-1T043: INPUTH"MIN", 
L$(Tz,Yz),I$C(Tz,Yz):NEXT 

1080 NEXT:GOTO170 

1110 Il$="" 

1120 Tz=Tz+1:H$=HID$(I$,Tz,1):IFH$=">"TH 
ЕМ114@ 

1130 11%-11%%М%:60701120 

1140 UCOJ=UALCI1$) :0-0*1:GOTO600 

71150 IFI$="N"THEN17@ 

116@ RETURN 

1170 L$-MID$CC$, 2, 1) 

1175 IFL$="H" THENXS=@ : YS=@ 

1180 IFL$-"L"ANDXS <> @THENXS=XS-2 

1190 IFL$="R"ANDXS <6THENXS=XS+2 

1200 IFL$="U"ANDYS<>@THENYS=YS-19 

1210 IFL$="D"ANDYS<3@THENYS=YS+10 

1220 GOSUB1240:GOSUB1290 
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1230 РОКЕ282743,50%Х5:РОКЕ282753,51%Х5:РОК 
Е282339,43%Х5 

1231 FORXz=1TO03:FORYzxz=1T013 

1232 PRINTƏYzxX32+Xzx10+52,L$(Xz+XS,Yz+YS 
23:МЕХТ:МЕХТ:60Т70120 ë 
1240 FORY%=1T013:FORX%=1TO3:PRINT@Y*X32+ 
XXX10*57," we 

1250 NEXT :NEXT :&=58 :FORA%=28779T0291 63ST 
ЕРЗ2 :РОКЕЯХ, 2 

1260 РОКЕАх+1, 2 :РОКЕЙХ +10, 2 :POKEA%+11,2: 
POKEAZ +20, 2 :NEXT : RETLIRN 

1290 ЕОКТх=1ТО9Э :P%=28736+Y%k32:7%=YS/10- 
1+49:РОКЕРХ, ТХ :МЕХТ 

1300 FORYZz-10T013:P«-282736*YxX32:Tx-YS7] 
0+49 :РОКЕРХ, TX : NEXT 

1310 RETURN 

1320 PRINT@@, "START РОИ" : INPUTA:PRINT@@, 
" LAST ROW" : ІМРОТВ 

1340 FORY=ATOB :FORX=1TOS 

1350 І РРІМТТАВССХ- 1 ЈЖЭЈЕФСХ, YI; 

1360 NEXT:LPRINTCHR$C13);:NEXT:RETURN 


. 2000 CLS:PRINT"COMMAND" :РКІМТӨ 12, "SYNTAX 


2010 PRINT" QGUIT"TRBC132"Q":PRINT" CELL 


ENTRY"TRBC27)"GX,Y" 

2020 PRINT" FUNCTION ENTRY ЕХ, Т" :PRINT 
" FUNCTION VIEW УХ, Y" 

2025 PRINT" MOVE HOME"TABCBJ ME" 

2030 PRINT" MOVE LEFT"TRBC8)"MPL " :PRINT" 
МОЧЕ RIGHT"TABC7) "MR" 

2050 PRINT" MOVE UP"TABC1@)"MU" :PRINT" H 
OVE DOWN" TABC8) "МО" 

2020 PRINT" UPDATE" TABC11)"U" :PRINT" SAU 
E PQ: TAPE Se 

2030 PRINT" LOAD FROM TAPE EPSP RINT P 
BINT hee 1 а Е” 

2115 PRINT“ USE QUOTE MARKS. FOR FORMULA 
Е":РКІМТӨ491, "«КЕТПЕМ>"; 

2120 Q$-INKEYS$:IFG$-""THEN2120 

2130 IFOG$-CHR$C13)THENRETLURNELSE2120 
2200 PRINT@1,"ARE YOU SURE" ; : [МРУТАМ$ 
2210 IFAN$-"YES"THENCLS :CLEARS@ :ЕМО 

2220 60101780 
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And from Chris Stamboulidis who 
submitted the program “Mini Calc' 
published in the October issue of 


APC: “There was one point which l omit- 
ted to mention in the documentation. 
When writing numerical constants | 
during the entry of functions, ensure that 
they are enclosed by '<' and ‘>’. ы 
- For example, to multiply the contents 
of cell 2,4 by 0.3, you would write: 
"[2,47]*«.37»" 
Also, the SAVE routine should be mod- 
ified to prevent possible problems with 
'INPUTs*'ing strings with commas 
inside them. The following lines should | 
now read: 


970 INPUT "HIT <RETURN> TO SAVE"; МА%:ҒОН T 96 = 1 TO 9: FOR YX= 


1 TO 43 


980 PRINT3*"MIN",CHR$(34)LS(T96, Y?6), CHR$(34)1$(T96,Y?6): NEXT: NEXT 


990 GOTO 170 


АРс su) Dee. 34 


P 214. 


Micro Type 


Бу 6 Browell 


Аса У2-200 addict, and іп response to 
the plaintive plea of S Hobson (Basic 
Understanding APC February 1985), 
the following program is sumbitted to 
make him happy and for all VeeZedders 
seeking a Basic word processor... 

PS If S Hobson's idea is taken to 


extreme one could write a REM for just 
about every line — Hobson's Choice?! 


NOTE: Use inverse for commas, colons 
and semi-colons. Use inverse for upper 
case. Use a blank graphic (Shift Z) to 
indent the first line of a paragraph. Scroll 


before Editing and before committing to 
printer. Should the program 'Break' just 
type GOTO80 «RETURN». 


! REKK AKA KKK ЖЖ ЖЖ ЖЖ ЖЖ KKK 
^X RD LIB VEEZED MICRO CLUB X 
^X «MICRO TYPE? PROGRAM * 
"x FOR У2-200 AND GP-109 Ж 
E: GORDON BROMELL MAY 84 X 
"XXXXXXXXXXXXXXXXXXXXXXXXXXXX 


CLS: CLEARS209:PRINT@22S, "ШВЕИ аха eas" : SOUND 16,6 


^XXXESTIMHTE NUMBER ОҒ LINEZX*x* 

PRINT#235, "ІШІМЕЗ "j: LO: x=6: INPUTL:DIMZSCL? 
РКІМТЕ299,"1. ARMIA" : PRINHTES31, "2. AMDA" 
PRINTR400,""5 : INPUTR : IFR=2THENS12 
FØRJ=1TOL:CLS:PRINTES, "MINE" J; "OF"; L 


”ЖЖЖТҮРІМІ GUIDEXXX 
A PRIHT?34, "WOREDE TTET EO" 
PRINTE 128 TAPIET EN" : 50100022, 1 


"XXXPRINT PREVIOUS LIHEXXX 
PRINT@162, "MINE" J-1:PRINT8226,2$( J-1 


*ЖЖЖЕНТЕК ТЕАТЖЖЖ 
PRIHTG32, "El" : IHPIJT2$C J): HEXT:CLS 


* +ЖЖМЕНИЖЖЖ 

CLS:R$sINKEY$:R$z"" 

PRINT@4@, "ШЕКПЕН 01564"; 71: PRINTOG104. "BIROLL" 
PRINT@116., "IZDIT" :РЕТНТВ1 6а, "RINT" 

PRINT@232, "IdMILE" :PRIHTG296, "ЗЕТКТЕУЕ" : РКТНТ@З6В. "EMIT" 
PRINT@421, "ETIS 230 G d 40 '' ; 4 

R*$=IHKE'/$: 1РА$=" "ТНЕНЭЯ 

НФ-ІНКЕҮ%:ІРНФ-""ТНЕНЭО 

ІЕНФ-"5"ТНЕМ6 

ІЕНФ-"Е"ТНЕН200й 

ІЕНФ-"Р"ТНЕН100 

ІЕНФ-"Е"ТНЕН400 

IFAS="R" THENS 22 

IFAS="4" THENRUH 
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99 ”ЖХЖЖІРКІНТ ТЕХТЖЖЖ 
100 CLS:FORJ-1TOL:GOSUB399:NEAT : 607088 


199 'XXXEDITXX* 
200 CLS: PRINT@4Q, "IIT" :SOUND14, 3: PRIHTG4S, "ІНЕ"; : INFUTC: Х=С 
210 ІЕСЯТНЕН2яО =; ( 
20 РКІМТ866,2%(С2; 
232 РКІНТ "1009" : IHPUTDS 
231 ІРр%=""ТНЕН89 
232 G=LENC DS): S=LENC Z$CC2) 
233 PRINT А42 4м": INPLITRS 
234 FORZ=1TOS 
235 IFMIDSC2$CC2, 2, Q)=D$THEN239 
236 HEXT Л 
237 PRINTOS: PRINT "ОА ми" 
238 SOUNDO,3:GOTOSO 
239 E=2-1+LENC DS > 
240 NS=LEFTS¢ Z$. C 2, 2-10+RS+RIGHTSC 2800 2, LENS ZSE C )>—E 2 
241 2$(CozN&:GOTUZO 


299 'XXXRSCII CONVERSION КОК LUFPER*LOWER САЗЕЖЖХЖ 
390 FORI=1TOLENS 285222 

385 1Е2%62о-""ТНЕН2% Joz"g" (SHIFT 2) 

319 R-RSCCRIGHTSCLEFT$C2$6 15, 12,1252? 


320 IFA>=64ANDA< =9STHENA=A+32 
338 IFA>=192ANDAS =223ТНЕНЯ=Я-1 
348 IFR2>=224RHDR<=25STHEHR=R-1 
350 ЕРЕТНТСНК$( Я 2; :НЕХТ 

360 LFRIHT 
378 RETURN 


399 *ЖЖЖР1ГЕ TO ТАРЕЖЖЖ 
400 CLS:PRINT&6SS. "IMPE ISILE": SOUHD16,2:PRINT@ZSS, "p late C ' 
410 SQUND22,9:CLS ° 

420 FORJ-1TUL 

421 PRINT8"",2$(J» 

422 PRINT MINE" J 

423 SOUND32, 1 

430 NEAT 

445 CLS: PRINTEZ., "ТОР ТАРЕ" : SOUMDe4, 9: CLS: 507080 


499 'X*X*XRETRIEVE FROM ТНРЕЖЖЖ 
тай CLS: PRINT@226, ІЙЕТКІЕУЕ": 5 ОМр22.6-РБІНТӘ2ӘЙ, "ІНІНЕЗ"; IHFUTL 
510 501/4024,5:015 

528 FDRJ=1TOÜL 

530 INPUTS"".2$C.J»: PRINT@464, J 

548 °RIHTZS¢ > 

550 NEXT 

568 РРІНТ"КЕЗИП 7124" : SOUND26,9 

278 CLS:GOTOSO 


CEXXSCROLL FOR TEXT КЕУІЕШЖЖЖ 
CLS:FÜRJzZ1TOL:PRINTJ; :PRINT2$6 J ? 


599 
600 


603 'XXXCOMTROL SCROLLING SPEED*XX 
610 FORT=17T01000: NEXT :FORT=1 702008: НЕХТ: NEAT : 607088 
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“When ENTERing or INSERTing data. 
If RETURN key is pressed without any 
data being placed in the line, Database 
will enter/insert a row of nine asterisks. 
This can be used as a handy divider, 


clearly separating one block of lines from . 


another. The asterisks сап be replaced 
with any characters you wish, to serve 
any purpose you can think of (the Basic 
lines in the listing are 430 and 460). 

AUTO repeat of INPUT in same place 
on screen, with warning buzz, if you try 
to enter a line number longer than the 
maximum permitted, or if an END line 
number is less than a START line num- 
ber. Fractional/negative entries for line 
numbers are rectified. 

Where START and END line numbers 
are requested (HARD COPY, ALPHA- 
BETIZE). If you want the entire file 
operated on, simply press RETURN key 
twice. To START at line O and END at a 
certain line number, press RETURN, 
enter END line number and press 
RETURN. To START at a certain line 
number and work to end of file, enter 
START line number and press 
RETURN twice. : 

The ALPHABETIZE routine will dis- 
play its progress on the screen: each suc- 
cessive line number will appear in 


bottom left of screen as the new start and 
the numbers of all the lines processed 
each time are rapidly displayed to the 
right. 

PAGE CALL (press P). If RETURN is 
pressed without entering page number, 
Database takes this as page one. Then 
each successive press of P will display 
the next page; to restart PAGE CALL, 
simply press RETURN and P keys. 

CATALOGUE has HALT and QUIT 
options. If there are too many catalogue 
lines to fit on one screen, CATALOGUE 
will display the excess lines in scroll 
fashion with pause between each line. 
Press any character key other than M to 
HALT CATALOGUE; again press any 
character other than M to CONTINUE 
CATALOGUE. Or press M key to QUIT 
CATALOGUE before CATALOGUE 
finishes its listing. 

By altering/adding six lines of coding 
an INCREMENT LINE NUMBER is 
implemented. This allows you to enter 
successive lines of data without the 
irritation of having to press the E key 
again, then enter line number, then press 
RETURN. Simply press CTRL key and 
the ENTER LINE NUMBER will be 
incremented, allowing you to enter the 
data for the new line straight 


away. If you want to change the last line | 


you entered/inserted/deleted, press x 
key and enter data. 


Database 
by Robert Quinn 


In the August 1984 issue of APC a 

database program for the VZ-200 was 

published, submitted by Ted Barker. 
We have since received a letter from 


Robert Quinn of Wagga Wagga who 
insists that the program was a “sloppy, 
incompetent piece of coding, filled with 
„errors, omissions and redundancies”. 


Tough stuff, eh! 

„Ви Quinn has put his money where 
his mouth is and supplied his own ver- 
sion of the program for VZ owners. Over 


Cassette SAVEing and LOADing is far 
too slow and unreliable for me to ever 
make use of the SAVE/LOAD routines of 
Database (imagine trying to SAVE/ 
LOAD 399 lines of data, each line a 
separate data file on tape). Besides | have 
a disk drive and so will be designing 
DISK. SAVE/LOAD routines. However, 
the cassette SAVE/LOAD routines could 
be sped up. One way would be to fit 
several Database lines in each data file to. 
tape. | leave that to someone else to 
develop who has the interest/need. 

Another option is to have the SAVE 
routine only record those Database lines 
which have data in them, skipping the 
empty lines until the next data- 
containing line is reached. Of course it 
would only speed up CSAVEing and 
CLOADing if there are lots of empty lines 
between lines of data. | have designed 
the modifications that should do the trick 
and appended the code to the end of the 
listing. If you wish to try it then enter 

those modified/additional lines to the 
program. 

In the listing INVERSE characters are 
underlined. K=K+1: ofline 1270 can be 
deleted (a harmless redundancy of 
BARKER that slipped through)." 


А.Рс. So аг NEO). 
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to Robert... >. 


ROBERT QUINN 

3 MARCONI STREET, 
KOORINGAL: WAGGA WAGGA, 
N.S.H. 2650 


DATABASE: R.Q. VERSION 


102 COLOR, 1 :CLEAR] 2000:Fe=" "iESR"E, 
PE ум S.L. Hj D; Я," 

110 CLS:PRINT"FILE NAME.” ; : INPUTTS:IFTS= 
""ТНЕМТ&="МО МАПЕ" 

130 TS=LEFTS(TS,14):1$="ARE YOU SURE (Y7 
N)" 

140 N=4Q0:P=1:X=(N+1)Z1@ :OIRS$(N):R$="LI 
NE NUMBER” 

145 FORJ=@TON:S$(J)="-" :NEXT :N#N-1 :CLS:G 
010202 


150 K=@:CLS:PRINT@@, "CATALOGUE  ";T$:PRI 
NT:PRINT" PAGE" 

162 FORJ=@TON:AK=ASC(S€(J)):IFAK=1SSANDK 
> 1 3THENSOUNOB, 2 

129 IFRK-195, PRINTINT(J71+1) ;RIGHTS (56 ( 
JJ LENCS£CJ)2-1) :KeKel 

125 AS*INKETS :AS=]NKEYS : IFAS O "" THENZ«NO 
T2 :SOUND30, 2 

180 IFS$(J)*"END"ORAS="N" THENJ =N :GOTO] 90 
185 1F2<@THENI7S 

190 NEXT :2=0 

185 КЕП CONTROL KEYS 

200 соѕивязе 

219 IFAS="C"THENIS@ 


220 IFAS="P" THEN34@ELSE I FAS="E" THEN4] BEL 
SE IFAS=" | "ТНЕМ449 


230 IFAS="N*THENS2@ELSE IFAS="S" THEN] 21@E 
LSEIFRS$-"L"THEN1320 


240 IFAS="H" THENSSGELSE I FAS="D" THEN230EL 
SEIFAS="A“ THEN] 509 


250 IFAS="N"THENS6O 
260 60102090 


292 REM GENERAL LINE INPUT 
302 &-0:PRINT&R384, C6 ;RS jF $; :PRINTQ402,"" 
3: INPUTAS 


310 J=ABSCINTCUALCAS))) : IFAS="" THENAS="2 
“ELSEGOSUBS@@ 


322 IFJ>NTHENSOUNO3@, 2 : GOTO3@@ELSERE TURN 


. 


330 КЕП PAGE CALL 

340 PRINT@384, “ENTER PAGE NUMBER" ; : INPUT 
AS :P=ABSCINTCUAL (AS) ) ) 

345 IFP=@THENP#=] ELSE IFP>XTHENSOUND3@, 2 :G 


010340 

350 CLS:PRINT"PRGE "P" “T€:PRINT 

360 FORIsOTOS:L2(P- I1) £10 * :РКІМТЬ ;58 (6): 
NEXT 

320 6050849302 

380 ІҒА < 2ТНЕМ№218 

390 Р=Р +1 :ІҒРУХТНЕМР=1 

400 6010350 

405 КЕП ENTER 

410 C&=" ENTER " :GOSUB300 

420 IFR?OTHEN210 

430 INPUTSS(J):IFSS(J)e""THENS€C J)- "XXki 
1+" 

4357Р«ІМТ(2/10е12:50Т0350 


438 КЕП INSERT 

440 C$-"INSERT ":GOSUB300: IFR» GTHEN210 
450 INPUTD$ :CLS 

460 IFDS&-2""THEND£-"$fzikirkt" 

422 FORI=J+*ITON:KK=):IFS€$(I)=“-“THENI=N: 
NEXTELSENEXT 

480 РОКІ =ККТОЈ+15ТЕР-1 :58(1)=58(1-1) :NEX 


485 S$(J)2D6 :P2 INTC(J710*1) :GOTO350 

488 КЕП CHANGED YOUR MIND? 

430 РЕІМТӘ490,Е& ; :GOSUBBSO 

502 n-0:FORI-1TO11:IFASCCHIDSCES, 132-12) 
-128=95С (98 )ТНЕМЯ=] : [712 

510 NEXT :RETURN 

515 КЕП RERUN 

520 CLS:PRINT&131, YS; : INPUTAS: [FAS="T"TH 
ENRUNELSECLS :GOTO200 


SSQ'REn MENU 

560 CLS :PRINT@6, "NENU ." :PRINT868, “CATAL 
OGUE* 

520 PRINT" PAGE CALL ":PRINT" ENTER 
"PRINT" INSERT" 

580 PRINT" NEW FILE" 

590 PRINT" SAVE ON ТАРЕ" :РЕІМТ" ьо 
AD FROM ТӨРЕ" 


600 PRINT" HARO СОРТ ON PRINTER" 
619 PRINT" DELETE” :PRINT" ALPHABET 
12Е" 


620 .505М8439 :GOTO210 


1405 REM END ОҒ SAVE/LOAD 
1410 CLS:PRINT8448," COMPLETE ":SOUNO3Q, 
2;20,2;10,2;0, 5:GOTO350 


1490 КЕП RLPHABETI?E 

1500 CLS:PRINT@4@, "ALPHABETI2E":C£-" STA 
RT ":GOSU8300 

1505 IFA) @THEN]GS@ELSEK=J :PRINT@448, K 
1510 Cs=" END " :GOSUB3@@ :M=J : IFR» OTHEN 
1GS@ELSE IFAS="2" THENN-N 

1515 IFM<=KTHENSOUNO3@, 2 :60701510 

1520 РОКІ =ПТОК$ТЕР-1 :М=] : IFSSCI) < "Z"THE 
МІ-д:50701540 

1540 МЕХТ:1=@ 

1580 J=K:PRINT@448,1I+K;" "у: 1Е 1 =П-КТНЕМ 
350 

1590 ІҒ.-П-ІТНЕМ1620 

1600 IFSt(J)»5SS(J* 1) THENTP$2S€$(J):S€$(J)* 
S$(J+1):S#(J+1)=TP$ . 

1619 J2Jr1:PRINT$455,J;" “;:60Т01530 
1620 I=I+1:GOTO1S80@ 

1650 CLS:PRINT@490, ES$ :G0T021@ 


FOR INCREMENTING ENTER LINE NUMBER 


145 FORJ=QTON:S$(J)=#="-“:NEXT:N=N-1:J=#Q:C 
LS:GOT0200 


192 NEXT :2=0:J=@ 


255 IFAS="X" THENSOUNO1@, } :PRINT@384, К iJ 
:GOTO430 


890 R$-INKEYS:A$-[INKE"* .IFAS=CHR$(13)THE 
NA$s"2" 

895 IFPEEKC26822)-25. ГМО) «NTHENJ =.) +] :CLS 
:R$uUXU 

900 IFRS-""THENBSOELSERE TURN 


NEW SRUE/LORD ROUTINES 


1240 FORI-NTOOGSTEF-1:K-I:IFSSCI) <> "-"THE 
NI=@ :NEXTELSENEXT ) 

1250 FORI=@TOK:IFS€¢(.1¢>"-" THENF#F *1:NEX 
TELSENEXT 

1260 INPUT” THEN PRESS <RETURN)";C 
1220 CLS:PRIN'"9448,". S67ING " 

1275 PRINTS ";2-DRTA",F :SOUNDO, з 

1282 FORI-QOTOK:IFS$(I)2"-"THEN]300 

1280 PRINTa"ORTA",I,SSCI)-PRIN?84S6," LI 
NE ";l1;:SOUNOO, 3 

1302 NEXT:F-0:GOTO1410 


1400 INPUTS"ORTR",F,SS(C7* ): PRINT94]6, "LIN 
E" iF 3 :NEXT 


y. 


Dada bee.” 


222 КЕП, DELETE 

730 C£-"DELETE ":60$иВ3@@ 

235 ІҒА>ӘТНЕМ210 

240 FORI=JTON:IFS$(1)="-“ñNDS$(I+] )="-"Т 
HENI =N 

258 $&(1)=5&(1+1) 

260 МЕХТ:56(М+1)="-":Р=14Т(2/1@+1):6О0ТОЗ 
5e 


882 КЕП WAITING 

890 AS=INKETS : А6 = | МКЕТ : [FAS="" THEN899EL 
SE IFAS=CHRS( 13) THENAS="2" 

999 RETURN 


940 КЕП HARD COPY 

950 CLS:PRINT@41, “HARD ШОРТ" :C¢=" START 
" :GOSUB300 : IFA> OTHEN210 

960 K=J 

920 C$=" Ем) ”:GOSU8300 :NeJ : IFA>@THENZ 
1QELSE IFAS="2"THENN=N 

980 IFM<KTHENSOUND3@, 2 :GOTOS70 

990 LPRINT" жажж "T&:LPRINT 

1932 FORI-KTOn:&K-RSC(LEFTSCS&CID 122 
1042 1FAK=!SSTHENGOSUB] 020 :GOTO1068 

1952 IFS&C(1) O "- " THENLPRINTSSCIO 

1962 NEXT :K«0:GOTO200 

1020 FORR-1TOLEN(S&(12) :AK=ASC(NIDS(SSCI 
),8,12) 

1082 IFAK>223THENAK=AK-192ELSEIFAK> 91TH 
ENAK=AK- 128 

1999 LPRINTCHRS CAK) ; : NEXT:LPRINT:RETURN 


1200 КЕП SAVE ON TAPE 

1210 CLS:PRINT@4],"SAYE_ON TAPE” 

1220 PRINT@131, 7 ;:INPUTAS:CLS:IFA$S O"T’ 
THEN200 

1230 PRINT@132, "PREPARE CASSETTE” :PRINT 
1240 INPUT“ THEN PRESS «RETURN» "5C 
1250 CLS :PRINT@448, " SAVING” 

1260 FORI=NTO@STEP~1 :Ke] :1Р54(1) O"-" THE 
NI-0 

1220 NEXT:K-K*] :PRINT&"U2-DRTR",K 

1280 FORI=QTOK 

1290 PRINT&"ORTA",SSCI):PRINT84AS6," LINE 
ТІ 


1300 NEXT :GOTO1«410 


1310 КЕП LORD ҒКОП ТӨРЕ 

1320 CLS:PRINT@3S,"LOAD FROM TAPE” 

1330 PRINT@0131,Y*$;:INPUTñ$:IFñ$<)>"T"THEN 
CLS:GOTO200 

1340 INPUT" FILE МАПЕ" ;Т$ 

1350 CLS:PRINT&132, "PREPARE CASSETTE” 
1360 INPUT" THEN PRESS «RETURN»";C 
1380 CLS:INPUTa2"U2-DRTR",K 

1390 FORI=@TOK 

1408 INPUTa&"DATa^,S€( 1) :PRINTQ45S8, "LINE" 
31 МЕХТ 


APL. зим. Wel 
Р ¿Za- €e 
A» } 2. 


VZ Wordprocessor У2200/300 


This word processor has two 
different modes, normal and 
repeat. On the repeat mode 
the computer will allow the 
user to repeat a letter on the 
keyboard by holding the key 
down. 


The control keys are: 
CTRL-E = Select Mode 
CTRL-P = Print 
CTRL-O = Clear Screen 


G. Tunny 
Gorokon, NSW 


LER HEHEHE а ER ЗРЗЕ ЗЕ 

2 '*V2-WORDPROCESSOR«* 
ate Š + 

4 '* BY GLEN TUNNY ж 

5 '*(C)OPYRIGHT 1987* 

b ЕР еле 

8 GOSUR 1000 

10 CLS 

20 B=96:C=32:MD$="NORMAL" 
25 PRINTƏQ, "MODE:* 

30 А$=!МКЕУ$ : А$=1МКЕУ$- 
40 РОКЕ28672+С. В | 
45 PRINT86,MD$ 

46 IF AS=CHRS(135) AND MD$="NORMAL “ ТНЕММО$ = " REPEAT" :60Т030 


47 IF AS=CHR$(135) AND MD$=*REPEAT* THENMD$=" NORMAL * :60Т030 


50 IF AS=CHR$(8)ANDC>32 THEN С-С-1:60Т0 150 


62 IF А$=СНВ$ (9) АМОС<446 THEN C=C+1:GOTO 150 


70 IF A$=CHR$(27)ANDC>63 THEN C=C-32:GOTO 150 
ВӘ IF АФ-СНН%(10)АМ0С<416 THEN С=С+32:60Т0 158 
90 IF AS-CHRS(13) THEN 509 

100 IF AS-CHR$(178) THEN 609 

IF AS-CHRS(140) THEN 12 

IF AS=** THEN BS="*:GOTO 150 

PRINT8C,AS:IF MD$-"NORMAL" AND AS-R$ THEN 150. 

140 B$-A$:C-C*1:SOUND10O, 1 

B=PEEK ( 28672+C) : РОКЕ28672+С, 32! IF INKEY$=**,FORI=1T045:NEXTI 
GOTO 30 , 

500 W=INT(C/32):W=W+1:W=W*32:C=W 

IF C>448 THENC=C-32 

GOTO 159 


PRINTAQ, * 
IF A=13 THEN 630 


“:А-ІМР(12) 


620 GOTO 720 

PRINTƏ8, “<PRINTER ERROR>*?REM С INVERSE 2 
SOUND234 1 

РЕІМТӘВ, * 

SOUND 27,1 

A=INP(12) 

IF A=13 THEN 630 

690 GOTO 620 Ў | 
copy 

GOTO 30 

NEXT 

800 FORI#1T015 


810 K$2INKEYS:K$zINKEYS E 


72 — ЕТІ February 1988 


820 IF K$z'* 


THEN NEXTI 


830 RETURN 


1000 


1010 


1020 


1030 


1040 


1045 


1050 


1060 


1070 


1080 


1090 


1100 


ccs 

REM 
A$x*V2-HORDPROCESSOR* 
B$4* BY GLEN TUNNY *- 
C$-'(C)OPYRIGHT 1987* 
D$="<<HIT ANY KEY>>* 
FORI=1TOLEN(AS) 
PRINTO4Q, RIGHTS (AS, 1) 
POKE26624, 1: POKEZ6624,0 
NEXTI 

FORI=1TOLEN( BS) 


PRINT372,RIGHT$(B$,1) 


1110 


1111 


1120 


1130 


1140 


1150 


1160 


1170 


1180 


1190 


1200 


1210 


1220 


1230 


POKE 26624,1:РОКЕ26624,0 
МЕХТІ 

FORI=1TOLEN(C$) 
PRINTƏ1QA,RIGHT$(C$, 1) 
POKE 26624,1:POKE26624, Q 
NEXTI 

FORI=1TOLEN(D$) 
PRINT3136, RIGHTS (DS, 1) 
POKE26624, 1 : РОКЕ26524,0 
МЕХТІ 

РОКІ 170500: МЕХТІ 
A$=INKEY$:AS=INKEY$ 

IF А$="" 


THEN 1210 


RETURN 


